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~ 
§.0 ERROR REPORTING FORMATS 
3.1 ORMAT 











FORMAT 1] 
§.1.1 mee tots pe eee ERROR 
§.1.2 OLICITED A TTeN TION 
§.1.3 Y UNEXPECTED DATA TYPE ERROR 
5.1.4 ATTENTION DID NOT RESET WITH DRIVE CLEAR 
$.1.5 ATTENTION DID NOT CLEAR WITH 
SUBSYSTEM CLE 
2-4-8 iLLECS prtye COMMAND 
5.4. IMEQUT 
5.1.8 CONTR OLLER DID NOT CLEAR ERROR 
F 5.1.9 NO OTTENT ION IN ATTENTION SUMMARY REGISTER 
§.1.10 DATA LATE WHEN UNLOADING HEADER 
S.1.11 CONTROLLER ERROR WHILE DRIVER SERVICING 
S.1.12 DRIVE PARITY WHILE eg HERING STATUS 
§.1.13 wat PLE DRIVE SE 
5.2 FORMAT 


APPENDIX A - DATA PATTERNS 
APPENDIX B - COMMAND SUMMARIES 


ee een 2 ne One ee 


**~ DEFERRED WHICH ARE THE COMMANDS THAT MAKE UP THE TESTS. 
y TRMEDIATE WHICH ARE EXECUTED GREN THEY ARE ENTERED: 


WHEN THE DEFERRED COMMANDS ARE ENTERED THEY ARE STORED IN CORE IN © 
A_ SOURCE A. EDITING CAN BE DONE ON THE STORED SOURCE TO ADD 
OR DELETE SPEGIFIC LINES. AFTER THE SOURCE HAS BEEN ENTERED, IT 
IS “COMPILED"' INTO OBJECT CODE, STORED IN CORE IN AN OBJECT AREA, 


RELI -RKOS USER DEFINED TEST MACYLI 27(732) O3-NOV-76 22:40 PAGE & 
128 
129 
130 
13 1.0 ABSTRACT 
133 THE USER DEFINED TEST PROGRAM PROVIDES THE CAPASILITY OF 
134 ENTERING, EDITING SAVING, RECALLING, AND EXECUTING TEST PROGRAMS 
135 DESIGNED ’BY THE USER , 
4 
35 THE USER DEFINED TEST OPERATES INTERACTIVELY TO ALLOW THE USER TO 
138 DEVELOP @ SPECIFIC TEST ROE UP OF SUBSYSTEM COMMANDS, CHECKING, 
133 AND REPORTING IN ANY SEQUENC 
14) aN INTERACTIVE COMMAND SET IS DEFINED TO BE USED IN ENTERING 
18g a! woes RIEVING EDITING, BID EXECUTING TESTS. THIS COMA 
14 Net COMMANDS ’T PERFORM COMPARE OPERAT 
144 aeanae TEST CONTROL VALUES, INITIALIGE THE BUFFER, AND TRETIAL Tt 
14s THE SUBSYSTEM. 
147 THE IN@ERACTIVE COMMAND SET IS DIVIDED INTO TWO TYPES OF 
as COMMANDS. THESE ARE: 
| 
| BND EXECUTED. ONCE EXECUTION BEGING, THE SOURCE CODE (15 LOST. 
meevctuies Efthen' te” "counce donee er EXECUTION OR THE 
OBJECT CODE ON CAN BE PUNCHED OUT ON PAPER TAPE 
RLONG WITH ANY SPECIAL De LATA Pe PATTERNS CONVERSELY, EITHER 
ODE CAN . SOURCE CODE I$ PLACED 
Ing THE SOURCE AREA AND OBJECT CODE Is IN THE OBJECT AREA 
AND EXECUTED. IF. SPECIAL DATA PAT WERE PUNCHED, THESE 


3 

PATTERNS ARE PLACED IN THE APPROPRIAT® BUFFER WHEN THE TAPE 

THE IMMEDIATE COMMANDS ARE EXECUTED WHEN THEY ARE ENTERED. THESE 
COMMANDS TNTO THE SOURCE AREA AND DO NOT BECOME 


NOT ENTERED 
THE COMPILED TEST. THEY C UTED AT ANY TIME 
EXCEP WHILE COMPILING OR EXECUTING. A Est 


THE GENERAL INTERACTIVE COMMAND (WITH THE EXCEPTION OF ‘THE 
SPECIAL DATA PATTERN COMMAND, SEE PARAGRAPH 8.1.5) FORMAT IS: 


INTERACTIVE COMMAND, PARAMETER, PARAMETER2, ... (RETURN) 

THE i TOF Ineo Soo COMMAND I$ TESTED FOR FOR LEGALITY. IF IT IS NOT ONE 

CTED AND AN ERROR 

MESSAGE Is PRINT: ae OF ae COMMAND IN ERROR Is ECHOED BACK TO SHOW 
OMMAND MUST BE REEN 


THE ERROR AND ETH ENTIRE C ENTERED. THE 
PARAMETERS ARE ACCEPTED WITHOUT CHECKING UNLESS SPECIFIC CHECKING 
IS DEFINED FOR THAT COMMAND IN THE FOLLOWING COMMAND 


BRES Talal TaN Soe GRA TORE Soe Une E Ss 
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2.0 


2.1 


2.2 


3.0 


3.1 
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ANY ONE OR ALL OF | ae es + PA yum AN con he 


ED 
E Atk per au TO THE ng: T SPE rep Po R_THAT 
RAMETER. A CARRIAGE RETURN WILL caus THE SREMATNING ARAMETERS : 
TO AULT. IF A PARAMETER IS TO BE SPECIFIED AFTER ONE THAT IS a) 
OMITTED, THE SEPARATOR (,) MUST PROVIDED. 


<“T 


~¥ 


REQUIREMENTS 


HARDWARE REQUIREMENTS 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE USER DEFINED TEST: 
PDP-11 SYSTEM (i6K MEMORY) 
ONSO M 
a“ UNIBUS CONTROLLER 
TO 8 RKO6 a VES 
RKOE met CARTRIDGE. 


PAPER TAPE READER (OPTIONAL) t 
PAPER TAPE PUNCH (OPTIONAL) [' 


PRELIMINARY PROGRAMS 
THE CONTROLLER DIAGNOSTIC AND/OR oatye DIAGNOSTIC SHOULD 
TO DI HOWEVER, THIS PROGRAM DOES NOT 


AGNOSE FAULTS. RELY 
OPERATIONAL SUBSYSTEM. FEAT AFuRES” ARE PROVIDED 10 FACILITATE 
LOOPING ON A TEST OR ERROR FOR TROUBLESHOOTING PURPOSES. 


OPERATING PROCEDURE AND CONTROL FUNCTIONS 


PROGRAM LOADING 
THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE ~*~ 


LOADER OR FROM ANY MEDIA SUPPORTED BY XXDP BUT IT IS NOT 
aac IT CAN ALSO BE LOADED BY ACT OR APT IN DUMP MODE 


THE PROGRAM DOES NOT DESTROY THE LOADER. 
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gS 

238 

239 

240 

Ea 3.2 STARTING LOCATIONS 

= ERE APE FSP tate Nee Bb fl and 

= REPO, FER AAP oh cSeagE® GD oR ED, Og 

a7 THEN PRINTED TO CfENIFY ‘ee PROGRAM i HEADY ie A cont RAND. 

eva THE RESTART AD RODRESS _-16.ALSO 200. THE SAME MESSAGES ARE PRINTED 

so EXCEP THE MESSAGE. THE HELP FILE IS AVAILABLE ONLY 

51 WHEN THE PROGRAM Is INITIALLY LOADED. 

ee 3.3 CONSOLE SWITCH REGISTER 

257 THE CONSOLE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 

258 THESE FUNCTIONS AND SWITCH ASSIGNMENTS GENERALLY CONFORM TO THE 

eo SYSMAC STANDARD WITH THE EXCEPTIONS NOTED: 

261 SWITCH FUNCTION 

Be eae de eee ee Ra ee |. ene caccscce 

263 

eH ; 15 HALT ON ERROR 

265 . 14 LOOP ON TEST. WHEN THE SWITCH IS RESET AFTER THE 

267 TEST HAS BEEN LOOPING THE PROGRAM WILL TYPE 

eb | NNN=NUMBER OF LOOPS. NNN IS A DECIMAL NUMBER. 

370 3 13 INHIBIT ERROR TYPEOUT 

ere 11 INHIBIT INERATION 

e74 10 BELL ON ERROR 

ere 9 LOOP, aft ERROR. 7 us HTTCH a OhF ORNS Ww THE 
Test y UNDER E cUTION Ve STARTED, "MITE 

Be "FP" es Eee te 48. Resta COMPLE 

280 RROR TH THE TEST IS AGAIN STARTED. F a 

28 ie HOR a cORRAND AS LONG AS SWITCH 9 REMAINS SET. 
WHEN SWITCH 9 IS RESET THE LOOP WILL TERMINATE 

283 AFTER 1 MORE PASS AND TYPE THE NUMBER OF LOOPS AS 

ee WHEN Swi Tcn WAS RESET. 

eee 2 INHIBIT ALL DATA COMPARE ERROR REPORTING. 

288 WHEN SET FORCE T OF ALL DATA COMPARE 

289 ERRORS. RESET ANB oRt ONLY THE FIRST 10 

230 P COMPARE ERRORS. 

292 0 WHEN SET FORCE SHORT ERROR REPORT. WHEN RESET 

233 FULL ERROR REPORT IS GIVEN. 





UNIBUS 
ADDRESS VECTOR 


333 

334 

335 

336 

337 

a8 RKO6 277400 210 
349 TAG NAME RKBAS RKVEC 
a5 LOCATION e334e 23344 
aia PAPER TAPE 

345 DATA BUFFER 177552 

346 TAG NAME PTRDB NOT 
pais USED 


LOCATION 1730 
STATUS REG 177550 
348 TAG NAME PTRSR 
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294 
295 
236 
e37 3.4 ‘SOFTWARE’ SWITCH REGISTER : 
299 IF THE PROGRAM Js BEING RUN ON A SHITCHLESS PROCESSOR (I. ifs AN ee W 
300 11/04 OR 11/34) THE PROGRAM WILL DETERM INE THAT THE HAR DHARE ‘ny 4 
301 é SWITCH REGISTER 15 NOT PR NOT PRESENT AND seats oe OF THARE SUIT CH j 
302 REGISTER. THE er Sur Ten REGIST 15 L pogereD aT uocat ON 
303 176(8). THE CE The Wore THE ’ 
304 THROUGH A KEYBOARD ROUTINE waren Te 1S call in se TYPING 8° NCOMTRO. 
305 G’. THE PROGRAM WILL RECOGNIZE THE ‘CONTROL G’ AT ANY TI 
306 EXCEPT WHEN THE PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN 
307 RK611 INTERRUPT. THE SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN 
308 OCTAL NUMBER IN RESPONSE 10 THE PROMPT FROM THE SWITCH ENTRY 
303 ROUTINE: 
ait via SWR = NNNNNN NEW =’ 
313 EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
314 IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED "RUBOUT” 
315 AND "CONTROL U’ FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
3ib DURING SWITCH ENTRY. 
318 ON PROCESSORS WITH HARDUARE SWITCH REGISTERS, THE SOFTWARE’ 
319 SWIi.4 REGISTER MAY USED. IF THE PROGRAM FINDS ALL 16 
320 SWITG, SS IN THE "UP? postr! ON, ALL SWITCH REGISTER REFERENCES 
321 WILL we 10 THE SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED 
see ABOVE MUST BE FOLLOWED. 
324 
325 
seb 3.5 UNIBUS ADDRESSES 
328 UNIBUS AND VECTOR ADDRESS OF THE RK PAPER TAPE READER, AND 
z3 PAPER PUN UNCH CAN N BE CHANGED FRR THE DEFAULT AS PART OF THE 
PROeRAN STARTUP PROCE THE METHOD OF CHANGING THE PARAMETERS 

331 IS TO ALTER THE MEMORY LOCATIONS SPECIFIED BEFORE THE PROGRAM IS 

| 332 STARTED. THE DEFAULT VALUES OF THESE PARAMETERS ARE: 

| 

| 

{ 

i 

i 

‘ 

{ 
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350 LOCATION 175 


a nr ee re + ee oe 


a a 3 
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3.6 


3.7 


a + eee 
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PAPER TAPE 

PUNCH 
DATA BUFFER 177556 
TAG NAME PTPDB NOT 
LOCATION 1734 USED 
STATUS REG 177554 
TAG NA PTPSR 
LOCATION 1732 


EXECUTION TIME 
= TIME WILL DEPEND ON THE SPECIFIC TEST DEFINED BY THE 


TEST PROGRAM SIZE 


THE TEST PROGRAM SIZE IS LIMITED BY THE STORAGE PROVIDED IN THE 

PROGRAM FOR SOURCE AND OBJECT CODE. IT ISN IBLE TO 

SPECIFY THE EXACT MAXIMUM NUMBER OF SOURCE LINES Soest ar E SINCE 

THE SOURCE LINES AND THE RESULTANT 

COMMAND TO COMMAND. HOWEV ER, THE APPROXIMATE MAXIMUM 00 
TEST IS ENTERED AND WHEN THE TEST IS 


SOURCE LINES. WHEN 
COMPILED CHECKS ARE PERFORM ED TO INSURE THAT NEITHER THE SOURCE 
OR OBJECT CODE WILL EXCEED ITS RESPECTIVE STORAGE. 








| MOI 
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382 
S 
395 4.0 USER DEFINED TEST FUNCTIONAL DESCRIPTION 
359 THE INTERACTIVE COMMAND SET IS DESCRIBED IN THE FOLLOWING 
389 PARAGRAPHS. _ THE IMMEDIATE COMMAND SET IS DESCRIBED FIRST, 
329 FOLLOWED BY THE DEFERRED COMMAND SET. 
391 THE FOLLOWING IS AN EXAMPLE OF WHAT IS CONSIDERED TYPICAL USAGE 
392 OF THE USER DEFINED TEST. THE USER WILL USE THE IMMEDIATE 
393 COMMANDS TO SET UP THE ITERATION COUNT AND TIMEOUT, SELECT THE 
394 DRIVE, INPUT DATA PATTERNS, ETC. THEN, CHOSING FROM THE DEFERRED 
395 COMMANDS. THE TEST IS ENTERED. AT ANY TIME WHILE THE 
395 TEST THE PRINT AND EDIT COMMANDS MAY BE USED TO prepray AND/OR 
397 CHANGE THE ENTERED DEFERRED COMMANDS. AFTER THE TEST HAS BEEN 
398 ENTERED ITED, THE MMAND IS EXECUTED. IF THE 
399 COMPILE IS SUCCESSFUL (NO ERRORS REPORTED) THE -OT.5 COMMAND IS 
490 EXECUTED TO ST HE L ENTERED DATA PATTERNS ON 
401 MM I SED TO HAVE — TEST 
4 EXECUTED. IF A TO T DESIRED, THE SOURCE TYPE 
403 IS READ iN THE EDITING PERF ORMED COMPILED AGAIN, PUNSHED AGAIN 
4py TC. TIME THE OBJE CODE MAY BE SAVED BY DOING AN OT,d 
40s ORMAND® To BINH A TAPE miei THOT E ODE. 

i Se | 

| 08 f 4.1 IMMEDIATE COMMAND SET 

| aie 

a3 4.1.1 DRIVE SELECTION 

| 45 DN, DRIVE NUMBER 

| 417 WHERE DRIVE NUMBER IS A SINGLE DIGIT 0 THROUGH 7 TO SPECIFY THE 
41B DRIVE TESTED. THIS DRIVE NUMBER WILL BE USED UNTIL EITHER 

| yg ALTERED BY ANOTHER DN COMMAND OR A DIFFERENT DRIVE NUMBER IS 

| = 4H SPECIFIED AS PART OF A SUBSYSTEM COMMAND (SF). WHEN THE PROGRAM 

Hel IS INITIALLY LOADED THE DRIVE NUMBER IS SET TO 1. 

is ap 

| 4aS WILL CAUSE THE NUMBER OF THE DRIVE THAT IS PRESENTLY SELECTED TO 

| 4B BE TYPED. 

| -4p7 

| dss 

| 420 4.1.2 OUTPUT TEST TO PAPER TAPE 

| 433 0T,0 WHERE 0 IS OBJECT CODE 

& 433 OT;5 WHERE S IS SOURCE CODE 

| 435 THIS COMMAND IS PROVIDED TO ALLOW EITHER THE SOURCE OR THE OBJECT 

on CODE TO BE PUNCHED. ONLY THE SOURCE CODE CAN BE PUNCHED BEFORE 

| 457 THE “COMPILE COMMAND HAS BEEN ISSUED, BOTH CAN BE PUNCHED AFTER 


ire ERR OTE eA I RAN Neale OP ieee A la TRE 


-_—- LE TS TS ST A Ee ee 
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u38 THE “COMPILE™ BUT BEFORE THE “RUN, AND ONLY THE OBJECT CODE CAN 
4 BE PUNCHED AFTER THE “RUN”. ALL TEST SPECIFIC PARAMETERS (DRIVE 


i re en | a 


476 


MACYLI Er (73e) O3-NOV-76 22:40 PAGE 15 


NUMBER, CYLINDER, TRACK. ETC.), THE USER DEFINED DATA PA TTERNS, 
AND THE RANSOM Data PATTERN ARE ALSO PUNCHED. 


4.1.3 COPY TAPE 


CT (COPY TAPE) 


THE PAPER TAPE LORDED IN THE READER IS REPRODUCED ON THE PUNCH. 
IT MAY BE EITHER SOURCE OR OBJECT CODE. 


4.1.4 INPUT TEST FROM PAPER TAPE. 


IT (INPUT TEST) 


THE NEXT TEST ON THE PAPER TAPE IS READ. THE TEST WILL BE 
RECOGNI as Ss OR OBJECT CODE AND THE CODE PLACED IN THE 
APPROPRIATE BUFFER. CONTROL WILL SE RETURNED TO THE CONSOLE 
AFTER THE TEST IS LOADED. : 


TS (INPUT TEST STRING) 


THIS COMMAND DIFFERS FROM THE INPUT TEST COMMAND IN THAT IF THE 
TEST IS_ OBJECT corr. THAT TEST IS IMMEDIATELY EXECUTED AND THE 
NEXT TEST IS READ FROM TAPE. THIS CONTINUES UNTIL A TEST OF 
ae CODE IS READ OR ALL TESTS HAVE BEEN EXECUTED (TAPE SUPPLY 

STED). WHEN A TEST OF SOURCE CODE IS READ CONTROL IS 
RETURNED TO THE CONSOLE AS FOR THE INPUT TEST COMMAND. 


4.1.5 TIME OUT 


DECIMAL NUMBER THAT WILL wid THE TIME DURATION 
TIMEOUT (SEE PARAGRAPH 4 THE VALUE Poe 


cuRA ON. THE 
T IS PUNCHED EITHER SOURCE 
rope ASSOCIATED TIMEOUT VALUE 


T0,? 
WILL CAUSE THE TIME OUT VALUE TO BE PRINTED. 











oe 4.1.6 ITERATION COUNT 
437 50, Wreeey 
98 
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DZRERS. CMS 
48g WHERE NNNNN IS THE DECIMAL NUMBER OF TIMES THE NEXT TEST EX“CUTED 
a WILL BE ITERATED (32767(10) OR LESS). 
552 IF THE TEST IS WRITTEN ONTO PAPER TAPE EITHER AS SOURCE OR OBJECT 
553 ¢ THE ITERATION COUNT IS ALSO WRITTEN. WHEN THE TEST IS 
Boe LOADED FROM PAPER TAPE, THE WRITTEN ITERATION COUNT IS USED. 
| E38 WILL TYPE THE CURRENT ITERGTION COUNT ON THE CONSOLE. 
516 
| zie 4.1.7 SPECIAL DATA PATTERNS 
| 514 DP, BUFFER NAME, DDDD----D( RETURN) 
eis ODODD----D (RETURN) 
| 51 RETURN? 
| ig WHERE PATTERN NAME IS X, Y, OR Z AND WHERE DDDD----D IS THE OCTAL 
513 DATA TO BE USED AS A DATA PATTERN. 
sc oe THE TOTAL LENGTH OF DIS 32 WORDS OR LESS. TWO CONSECUTIVE 
| 822 CARRIAGE RETURNS TERMINATE DATA PATTERN ENTRY AND A SINGLE \ 
| 533 CARRIAGE RETURN RETURNS THE CARRIAGE BUT IS IGNORED AS FAR AS THE , 
| Bay DATA PATTERN IS CONCERNED. IF LES" THAN 32 WORDS ARE ENTERED THE 
| 35 REMAINDER OF THE WORDS ARE ZERO FILLED. 
527 EACH LINE MUST BE LIMITED TO 8 WORDS (48 ASCII CHARACTERS) PER 
| §3g LINE OR LESS AT WHICH TIME A CARRIAGE RETURN MUST BE TYPED. 
/  &B9 ALTHOUGH 6 ASCII CHARACTERS ARE REQUIRED TO FILL A SINGLE A 
| §36 CARRIAGE RETURN AT SOMETHING OTHER THAN MODULE 6 CAUSES LEFT 
ee JUSTIFYING OF THE PARTIAL WORD GIVEN AND USING IT AS A F 
| 835 THE PATTERN NAME (X .Y, OR Z) MAY BE SPECIFIED IN ANY C 
834 INVOLVING PATTERN SELECTION TO SELECT THE SPECIAL PATTERN. IF 
535 THE NAMED SPECIAL PATTERN HAS NOT BEEN DEFINED PRIOR TO ITS USE, 
3 A PATTERN OF ALL ZEROS WILL BE SUPPLIED. 
| 38 THE SPECIAL DATA PATTERNS THAT HAVE BEEN DEFINED KILL SE PUNCHED 
523 ITH Ri 3 TEST. THESE DATA PATTERNS ARE RETRIEVED WHEN THE TEST 


+ 


ee eee 
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DZRERB.C 
541 
te 
te 
2 4.1.8 EDIT BUFFER 
48 a EB, BUFFER NAME,WORD POSITION, DDDDD----D( RETURN) 
54? "DODDD=——-DCRETURN) 
S48 (RETURN) 
550 WHERE STOR NAME IS. X, Y,_0R.Z; WHERE WORD POSITION IS THE 
ssi FIR st 1S TOBE’ EDITED; AND WHERE DDDD---D IS THE DATA 
552 TO BE ENTE RED Tho POSITION IS'AN OCTAL NUMBER AND THE FIRST 
333 WORD IN THe” BUFFER IS SPECIFIED A 
és THE ENTRY PROCEDURE IS THE SAME AS FOR THE DP COMMAND. THE 
556 SIGNIFICANT DIFFERENCE IS THAT THE BUFFER IS NOT CLEARED AND ANY 
557 WORDS NOT CHANGED BY THE EB COMMAND ARE UNCHANGED. AS BEFORE, 
55 PARTIAL WORDS ARE LEFT JUSTIFIED AND ZERO FILLED. 


4.1.9 BUFFER DUMP 
BD, BUFFER NAME, NUMBER OF WORDS 


WHERE BUFFER NAME CAN BE SPECIAL BUFFER X, Y, OR 2, THE READ (R) 
OR WRITE (W) BUFFER THE pe ADER (H) BUFFER (SEE SUBSYSTEM 
COMMAND READ ALL HEADERS) o* THE PRINTOUT STARTS WITH WORD O AND 
PRINTS THE NUMBER OF WORDS SPECIFIED (OCTAL). 


4.1.10 COMPILE 
CO,NC, BIT % 
THIS COMMAND CAUSES THE STORED eee COMMANDS TO COMPILED 
INTO__A. TEST SEQUENCE. OPTIONAL PARAMETER (NC) pete 


THE TEST IS TO BE RUN IN is CHECK OR NO-CHECK MODE IF 

TER IS OMITTED THE TEST WILL BE COMPILED TO BE RUN WI 
NORMAL CHECKING. IF THE PARAMETER IS GIVEN THE TEST WILL 
COMPILED FOR NO-CHECK EXECUTION. 


N-CEX PERTAINS ONLY TO ALL SUBSYSTEM COMMANDS (SEE DESCRIPTION 
OF YS FUNCTION COMMAND AND THE COMMANDS LISTED IN 
APPENDIX B.2) WITH THE EXCEPTION OF THE READ ALL HEADER 
COMMAND CANNOT BE EXECUTED IN NO-CHECK MODE. 


E60 OPERETIONS. IN THE TESt ARE” TO GE EXECUTED RITH “BUS’ ROURESS 


FREENES dalla tonnes Ge ine Eee 
RE 


un 
8S 


£9] INCREMENT INHIBIT". SPECIFYING BII CAUSES THE PROGRAM 10. SUSPEND 
595 THE INTERNAL PROGRAM CHECK THAT LOOKS FOR WORD COUNTS THAT ARE 
£93 GREATER THAN THE BUFFER SIZE, I. E THE PROGRAM WILL ACCEPT A 
E DATA TRANSFER COUNT OF ANY SIZE. 


IT SHOULD BE NOTED THAT AFTER THE COMPILE THE SOURCE CODE IS 


um 
FRE 





RKELI/RKOE USER DEFINED TEST MACYLL ET(732) O3-NOV-7& 22:40 PAGE 18 
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$37 TILL VALID AND CAN BE EDITED OR SAVED. 


enw a ee ee eee 


—_ 


ee ee eee 


AE OD oe 


ne ee | 
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538 
89 } 
690 
501 4.1.11 RUN 
602 
B03 RU 
605 THIS COMMAND CAUSES THE OBJECT CODE TO BE EXECUTED. A RUN 
pce cotta BAND GIVEN BEFORE A TEST IS COMPILED IS REJECTED WITH AN ERROR 
07 . EXECUTING A RUN COMMAND CAUSES THE SOURCE CODE 10 BE 
609 
516 
611 
pie 4.1.12 EDIT ADD LINE 
bi EA,LN,NEW COMMAND 
S16 WHERE LN IS THE NUMBER (DECIMAL) THAT SPECIFIES THE POSITION OF 
617 THE LINE INSERTION AND WHERE NEW COMMAND IS THE COMMAND TO BE 
eis INSERTED INTO THE SOURCE. 
620 AFTER THE COMMAND IS EXECUTED THE NEW COMMAND WILL HAVE THE LINE 
Fel NUMBER LN AND THE LINE NUMBERS FROM T ENTRY EOINT CINCLUDING 
THE LINE THAT WAS AT THE ENTRY POINT) TO THE END OF THE TEST WILL 
23 BE INCREMENTED. 
624 
| 25 
625 
be? + 4.1.13 EDIT DELETE LINE 
be ED, LN 
ba WHERE LN IS THE NUMBER IN DECIMAL OF THE LINE TO BE DELETED. 
| 63 
| 634 
| B35 4.1.14 PRINT TEST 
| 636 
ig ‘ 
| 639 THIS COMMAND WILL CAUSE THE STORED SOURCE TO BE PRINTED ON THE 
B40 TELETYPE. | LINE NUMBERS (DECIMAL) WILL BE PRINTED AT THE 
a BEGINNING OF EACH LINE. 
| 643 
; 644 
Bas 4.1.15 PRINT LINE 
| 646 
| bY? PL,LN 
| 64S WHERE LN IS THE DECIMAL NUMBER OF THE LINE THAT IS TO BE PRINTED. 


| 
} 
| 
| 


650 
p52 
| 
| 
| 
| 
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4.1.16 NEW TEST 
NT 


THIS COMMAND CAUSES THE PROGRAM TO INITIALIZE ITSELF BY CLEARING 
THE SOURCE COMMANDS, CLEARING THE COMPILED TEST, AND TERMINATING 


Y TEST PRESENTLY EXECUTING. ALL STORED PARAMETERS (DRIVE 
NUNGER, ITERATION COUNT, STALL, CYLINDER NUMBER, TRACK, SECTOR, 


4.1.17 PRINT REGISTER 
PR,REGISTER SELECT 
WHERE eee SELECT JS THE ‘os ADDRESSABLE REGISTER 


SPECIFIED AS AN OCTAL NUMBER A NMEMONIC NAME. THE 
POSSIBILITIES ARE: 


NUMBER = NAME DESCRIPTION 
CO CS1 COMMAND STATUS REG 1 
O01 We WORD COUNT 
Oe BA BUS ADDRESS 
03 DA DESIRED ADDRESS - TRACK & SECTOR 
04 CS2 Cc STATUS REG £ 
OS DS DRIVE STATUS 
* 06 ER poly REGISTER 
07 ASOF ATTENTION SUMMARY & OFFSET 
10 DC DESIRED CYLINDER 
ll UNUSED 
le TA_BUFFER 
13 MRI ANTES REGISTER 1 
my MAINTENANCE REGISTER 2 
15 INTENANCE REGISTER 3 | 
16 POS ECC/POSITION 
17 PAT ECC/PATTERN 


4.1.18 HELP “ 
HP 


THIS COMMAND WILL CAUSE A SUMMARY OF THE INTERACTIVE COMMANDS TO 
BE PRINTED. IT IS VALID ONLY AFTER THE PROGRAM IS FIRST LOADED. 


4.1.19 FORMAT SELECT 


ae eee ~~ ee ee 
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707 

i 

>i0 WHERE NN SPECIFIES THE FORMAT AS, AN OCTAL NUMBER (24. FOR 20 
711 SECTOR/TRACK AND 26 FOR 22 SECTOR/TRACK). THE FORMAT DEFAULTS. T 
7] o8- _ THE SELECTED FORMAT APPLIES. To ALL Con NOS OND MILL RE at 
al se] UN Sat SS OUTPUTTED 16 PAPER TAPE 
714 AS PART OF THE TEST. CON SP OUENTLY. INPUTTING A TEST CAN 

215 CHANGE THE FORMAT SELECTED. 

217 FT,? 

a WILL CAUSE THE FORMAT VALUE TO BE PRINTED. 

73} 

722 

763 4.2 DEFERRED COMMAND SET 

¢ 

735 

72 4.2.1 SUBSYSTEM FUNCTION COMMAND 

728 SF, SUBSYSTEM CONMAND,DRIVE NUMBER, CCC,T,SS, 

729 NUMBER OF WORDS’DATA PATTERN’ 

731 WHERE ALL NUMERIC VALUES ARE OCTAL AND: 

733 * SF IS SUBSYSTEM FUNCTION COMMAND. 

7 % SUBSYSTEM COMMAND IS ONE OF THE FOLLOWING: 

737 RD READ DATA 

738 WD WRITE DATA 

739 WC WRITE CHECK 

749 WRITE 

741 RH READ 

745 SEEK 

743 CC CONTROLLER CLEAR 

744 CS CLEAR SUBSYSTEM 

745 BC DRIVE CLEAR 

746 RC RECALIBRATE 

747 DS DRIVE SELECT 

748 PA PACK ACKNOWLEDGE 

74g UL UNLOAD 

750 SS START SPINDLE 

7} OF OFFSET 

72 READ ALL HEADER 

754 % DRIVE NUMBER IS THE NUMBER OF THE DRIVE TO BE ADDRESSED. 
755 IF UNSPECIFIED THE LAST DRIVE ADDRESSED WILL BE USED. 
757 * CCC IS THE CYLINDER ADDRESS OR THE OFFSET VALUE IF THE 
758 SUBSYSTEM COMMAND IS OFFSET. 

760 * TIS THE TRACK ADDRESS 

762 * SS IS THE SECTOR ADDRESS 
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* NUMBER OF WORDS IS THE NUMBER OF 


we me ern are aes 


WORDS 


TO 


BE 


BE aa. PH 
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TRANSFERRED. THE NUMBER IS pe oper Ly. gee 
ALLOWED CONSISTANT WITH UFFE 


THE 8 
R THAN MAXTMUM AN ERRO ETED 
fre c YES is COMPILED OLE. Mt nA EBROR 15,f6°9 Ec a 
BIL PARAHE TUX © (SEE COMPILE COMMAND 
Meet RrPTION). 
% DATA PATTERN IS AN ALPHABETIC CHARACTER 10 SELECT THE 
DESIRED DATA PATTERN FROM THE VARIOUS PATTERNS AVAILABLE 


HARACTERS X, Y, 0 
TO USE A USER DEFINED PATTERN. IF THIS PATTERN HAS NOT 
BEEN DEFINED, DATA OF ALL ZEROS WILL BE USED. 


ANY PARAMETER MAY BE one AND nee ¥. TO DEFAULT TO THE LAST 
VALUE GIVEN FOR THAT PARAMETER. A CARRIAGE RETURN ANYWHERE # 


BESIINSALINASSEeN B 





783 THE COMMA ND ALLOWS THE REMAINING PARAMETERS TO DEFAULT 
784 SEPARATORS MUST BE SUPPLIED IF A PARAMETER IS OMITTED AND 
es FOLLOWING PARAMETERS ARE ARE GIVEN. 

? OMITTING at har NUMBER, PA PARAMETER IS USEFUL TO HAVE A GENERAL 
788 PURPOSE TES HAT CAN BE RUN ON ANY DRIVE ADDRESS. THE IMMEDIATE 
789 con BE USED TO SPECIFY THE DESIRED DRIVE BEFORE THE 

39 OB URPOSE TEST IS CUT NOTE THAT THIS IS NOT 
791 RPP LcHeLE IF MORE THAN ONE DRIVE IS TO BE USED IN Ti 

j 
793 
794 OMITTING THE DATA PATTERN PARAMETER WILL CAUSE THIS COMMAND T 
795 USE THE BUFFER AS IT WAS LAST INITIALIZED. IF THE PARAMETER IS 
7% RIVEN THE: OUTPUT BUFFER TS INITIALIZED AS PORT OF THE TEST THIS 

IS ESPECIALLY IMPORTANT WHEN EXECUTION SPEED SHOULD BE FAST FOR 
798 SCOPIN BUFFER INITIALIZE COMMAND CAN NTERED 
799 AND EXECUTED AS A SEPARATE TEST TO AVOID BUFFER LOADING IN A TEST 
goo WHERE SPEED IS REQUIRED. 
Boe THE NO-CHECK CAPABILITY OF THE COMPILE COMMAND APPLIES TO THE 
803 SUBSYSTEM C T ARE LISTED ABOVE (WITH THE EXCEPTION OF 
804 THE READ SPECIFIC READER) . WHEN THE NO-CHECK MODE OF OPERATION 
B95 IS INVOKED THE CHECK NGF FUNCTIONS THAT DETECT THE OCCURRANCE OF 
B06 OPERATION IN THE CONTROLLER OR DRIVE ARE 
807 INHIBITED one Og Waitt " OMMANDS ARE EXECUTED REGARDLESS OF 
| go ERROR CONDITIONS A ae START OF THE COMMAND OR ERROR OCCURRANCE 
£09 DURING THE COMMAND. THE ONLY REQUIREMENT FOR THE TEST TO PROCEED 

| 810 TO THE NEXT COMMAND IS THE CONTROLLER MUST INDICATE COMMAND 
811 COMPLETION BY SETTING NBEADY Y". THE IMPLICATION IS THAT WHEN THE 

| Ft NO-CHECK MODE IS USED THE TEST PROGRAM IS RESPONSIBLE FOR TESTING 
g13 FOR ERRORS AND CLEARING ERROR CONDITIONS. 

| B15 THE WRITE HEADER COMMAND IS IMPLEMENTED SUCH THAT THE CYLINDER 

| 816 TRACK TERS SPECIFY THE PHYSICAL LOCATION 

| B17 (CYLINDER & TRACK) THAT TO BE FORMATTED. fT SECTOR 

| B18 PARAMETER, IF SPECIFIED AS ZERO CAUSED THE CORRECT HEADER FOR ~ 

| 819 THAT PHYSICAL LOCATION TO BE GENERATED IN THE OUTPUT BUFFER AND 

| 820 WRITTEN. IF THE SECTOR PARAMETER IS NON-ZERO THE CONTENTS OF THE 

| 


ae mnt ee ee ne re RT AE TS A I = a 


ae. emene ome « ~~ om ne ee ee ne ee OE SS ES EE ES ES SS SS ia RIES ste RT SD RT i 


02 | 
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: Bs) a CiAL DATA PATTERN BUFFER X, Y, AND Z ARE USED AND MBIT TEN A 
HE HEADERS ON THAT CYLINDER AND'TRACK. THE WRITE HEADER COMMAN 
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823 
gsc 
826 ros NOT ALTER THE CONTENTS OF BUFFER X OR Z. THE CONTENTS 
827 THESE BUFFERS MUST BE SPECIFIED USING THe SPECIAL DATA 4 he 
828 CDP) COMMAND TO LOAD ALL OF BUFFER X, ALL OF BUFFER Y¥. AND THE 
Bee FIRST 2 WORDS OF BUFFER Z (66 WORDS “REQUIRED FOR HEADERS). 
831 
832 
Hey 4.2.2 BUFFER INITIALIZE 
4 BI,ALPHABETIC CHARACTER 
837 WHERE THE ALPHABETIC CHARACTER eet: THE DATA PATTERN TO iit 
838 USED (SEE are A__FOR THE AVAILABLE PATTERNS). THE OUTPUT 
839 BUFFER WILL BE INITIALIZED TO THE PATTERN SELECTED. CHARACTERS 
840 X, Y, OR Z ARE VALID TO SELECT THE USER DEFINED DATA PATTERN. IF 
B41 - THE SPECIAL DATA PATTERN HAS NOT BEEN USER DEFINED BEFORE IT IS 
as SELECTED A PATTERN OF ALL ZEROS WILL BE USED. 
B44 
845 
aie 4.2.3 DATA COMPARE 
Bue DC, NNNNNN 
850 WHERE NNNNNN IS A ore. VALUE _SPECIFING THE NUMBER OF ee TO BE 
851 COMPARED STARTING THE BEGINNING OF THE OUTPUT AND INPUT 
852 BUFFERS. IF _NNNNNN fs OMITTED THE NUMBER OF WORDS IN THE LAST 
ay INPUT DATA TRANSFER ARE COMPARED. 
855 A DATA MISCOMPARE WILL CAUSE THE GOOD AND BAD DATA TO BE REPORTED 
856 IN THE ERROR REPORT. 
i 857 
8s8 ‘ 
859 f 
| aa 4.2.4 STATUS COMPARE 
Bes SC,STATUS WORD NUMBER,EXPECTED VALUE, MASK 
| bre + WHERE ENTERED VALUES ARE OCTAL AND: 
| B66 * STATUS WORD NUMBER IS THE DRIVE STATUS WORD TO BE 
| B67 COMPARED. STATUS WORDS ARE DESIGNATED 0 THROUGH 7 AND 
| os ARE ARBITRARILY ASSIGNED AS FOLLOWS: 
| 870 OO IS MESSAGE LINE A WORD O 
871 ' Q1 1S MESSQGE LINE B WORD O 
| §87e Oe IS MESSAGE LINE A WORD 1 
873 O3 IS MESSAGE LINE B WORD 1 
| 874 O4 IS MESSAGE LINE A WORD e 
| 6875 C3 IS MESSAGE LINE B WORD 2 
| 876 O& IS MESSAGE LINE A WORD 3 
Bre O7 IS MESSAGE LINE B WORD 3 
| 





—— TS LS LL 
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273 ¥  ecalnae VALUE IS THE VALUE THE STATUS SPECIFIED SHOULD 








‘ome camenenens ee ue Se ee one, 


i 
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881 
| 
584 * [ASK SPECIFIES UMICH BITS ARE TO BE COMPARED IN THE 
| 885 STATUS WORD READ AND THE EXPECTED VALUE. A ONE IN 
886 SPECIFIC’ BIT POSITION. ALLOWS. THAT BIT POSITION 
887 COMBARISON, TD OCCUR AND A ZERO INHIBITS COMPARISON, 
269 MASK IS INITIALLY SET 10 077777 THE PRO 
853 Ded... (BIT 15 OF DRIVE STATUS HioROS 1$ ALuAYS ZERO. 
£39 NCE MASK HAS BEEN SPECIEZED, [UAT vat ST 
8S] - URED FOR SUBSEGLENT S€-CORMANDS UNTILL 17-15 CHANGED ‘By 
S32 Bec HGSRGYENT SC COMMAND THAT ~~ INCLUDES” “MASK 
ss: SPECIFICATION 
695 A STATUS MISCOMPARE WILL CAUSE THE GOOD AND BAD STATUS WORDS TO 
S96 BE REPORTED. 
837 
| 898 
| 899 
| x 4.2.5 REGISTER COMPARE 
x RC.REGISTER NUMBER,EXPECTED VALUE, MASK 
| sc WHERE ENTERED VALUES ARE OCTAL AND: 
# REGISTER NUMBER IS THE NUMBER OF THE UNIBUS ADDRESSABLE 
| & REGISTER OF THE RK611 TO BE COMPARED. 
a) * EXPECTED VALUE IS THE VALUE THE SPECIFIED REGISTER 
_ 3 SHOULD CONTAIN. 
| $18 * MASK SPECIFIES WHICH BITS ARE TO BE COMPARED IN THE - 
$13 REGISTER READ AND THE EXPECTED VALUE. A ONE INA 
$15 SPECIFIC BIT POSITION ALLOWS THAT BIT POSITION 
«is COMPARISON TO OCCUR AND A ZERO INHIBITS THAT COMPARISON. 
| o16 MASK IS INITIALLY SET TO. 177777 WHEN THE PROGRAM 18 
| @I7 LOADED. ONCE THE MASK HAS BEEN SPECIFIED, THAT VALUE IS 
| 91g ; STORED AND USED IN SUBSEQUENT RC COMMANDS’ UNTIL THE ask 
618 7s CHANGED BY A SUBSEQUENT RC COMMAND THAT INCLUDES A 
ec MASK SPECIFICATION. 
Se REGISTER MISCOMPARE WILL CAUSE GOOD AND BAD VALUES TO BE 
S23 REPORTED. 
925 
925 
See 
$27 4.2.6 REGISTER WRITE 
RW, REGISTER SELECT, VALUE 
| ea WHERE ENTERED VALUES ARE OCTAL AND: 
933 * REGISTER SELECT ISTHE NUMBER OR THE MNENONIC  NANE OF 
Eel THE UNIBUS ADDRESSABLE REGISTER OF THE RK611 TO BE 


er TieN. (SEE PARAGRAPH 4.1.14 FOR LIST OF NUMBERS AND 


wo 
IA 
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* VALUE IS THE VALUE TO BE LOADED. 


ee ee ee 
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Sai 

a2 ANY REGISTER AND ANY VALUE MAY BE SPECIFIED. NO CHECK IS MADE 
oy FOR READ ONLY BITS. 

a44 

345 

S4e 

947 4.2.7 STALL 

$48 

a3 ST, NNNNN 

35] WHERE NNNNN IS @ DECIMAL NUMBER SPECIFING @ CONSTANT TO DELAY 
se BE THEN SUBSYSTEM FUNCTION COMMANDS. NNNNN MUST BE 32767(10) OR 
sé . 

5 

956 

7 4.2.8 PRINT MESSAGE 

2 PM, MESSAGE 

961 RE MESSAGE CAN BE ANY ASCII STRING UP TO 70 CHARACTERS IN 
a6 LENGTH. THAT MESSAGE IS PRINTED ON THE CONSOLE TERMINAL WHEN THE 
S63 ¢ IS EXECUTED. THE MESSAGE IS PRINTED ONLY I 

3c4 FIRST EXECUTION OF THE TEST AFTER A RUN COMMAND IS EXECUTED AND 
365 SSED DURING SUBSEQUENT TEST ITERATIONS IF THE ITERATION 
S66 COUNT IS GREATER THAN 1, IF LOOP ON TEST <SW14 SET) OR LOOP ON 
7 ERROR (SW9 SET AND ERROR) 

ges 

$70 

71 4.2.9 UNIBUS INITIALIZE 

Fe _ UI 

975 THIS COMMAND WILL CAUSE A RESET TO BE EXECUTED TO CLEAR ALL UNITS 
a7 CONNECTED TO THE UNIBUS. 

$78 

$79 

360 4.3 LINE NUMBERING 

ego AS DEFERRED COMMANDS ARE ENTERED AND STORED, THE PROGRAM ASSIGNS 
a83 DECIMAL LINE NUMBERS TO THE COMMANDS SEQUENTIALLY. THE LINE 
984 NUMBERS ARE USED IN THE EDIT COMMANDS (ER AND ED) AND FOR LINE 
385 PRINTING (PL). 

$67 WHEN A LINE IS ADDED OR DELETED FROM THE SOURCE, THE STORED LINES 
ogg ARE RENUMBERED IMMEDIATELY. SUBSEQUENT LINE ORIENTED COMMANDS 
369 MUST TAKE THE NEW LINE NUMBERS INTO CONSIDERATION. 

991 

69 
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4.4 TIMEOUT 


TO PREVENT “SILENT DEATH” SITUATIONS (THE PROGRAM STARTS AN 
OPERAT RKO& SUBSYSTEM AND THE supsysTEn NEVER SIGNALS 
CONPLETION) , SOFTHARE on HEE ER 15 ENeLO EMPLOYED, TIME T PROGRAM 

AN OPERATION Creme aCe IMER HF USED TO 
IN URE THAT THE REQUEST to ‘eri Y ene WITHIN © TRERSONABLE 
PERIOD OF TIME. IF THE ACTIVITY DOES COMPLETE, PROGRAM 
WILL DISPLAY A SUBSYSTEM TIMEOUT MESSAGE 


THE REASONABLE PERIOD OF TIME JUST MENTIONED IS NOT CALIBRATED TO 
REAL TIME. CALIBRATION IS NOT POSSIBLE BECAUSE OF VARIOUS 
CONFIGURATIONS OF MEMORIES AND PROCESSORS. 


TO ENHANCE THE USEFULNESS OF THIS TIMEOUT FEATURE, THE TIMER IS 
VARIABLE. (SEE TIMEOUT COMMAND PRESCRIPTION) THE DEFAULT VALUE 
OF THE VARIABLE IS LARGE ENOUGH TO INSURE COMMAND COMPLETION. 





4.5 TEST LOOPING AND LOOP COUNTERS 


USING THE SWITCH OPTIONS PROVIDED, THE PROGRAN WILL LOOP THE 
TEST (SWITCH 14) OR LOOP ON ERROR (SWITCH 9). WHENEVER A TEST IS 
BEING LOOPED, EACH LOOP IS COUNTED. 


THE LOOP COUNT IS REPORTED IN TWO INSTANCES. THESE ARE_ WHEN AN 
Fee SEAN NATES. AND IS REPORTED (SWITCH 13 RESET) AND WHEN LOOPING 


_—-. 


5.0 ERROR REPORTING FORMATS 


TWO BASIC REPORT FORMATS ARE DEFINED. FORMAT 1 IS FOR ALL ERRORS 
(EITHER PROGRAM OR HARDWARE DETECTED) WHERE COMMAND PARAMETERS 
AND RK611 REGISTER CONTENTS ARE APPLICABLE. FORMAT 2 IS FOR 
COMPARISON ERROR REPORTING, I.£., STATUS enews, REGISTER 


Ennis PURINE SLU Pun Ma etntetctereiietete el sirieiaicteiet tht ae 


b- O-< 6 -+ b= B-« b= = D = h—* b= OB = fh — & =< & 2b ~ 0 8 FF & 2 0 b+ b= 9-2 0 = & = = 9-2 B 2 8-0 9 -< b-2 02 2 & 2 2 b= 02h 2 = & 0 H0 HH 


MPARE, AND DATA 
| 038 S.1 FORMAT | 
gue FORMAT 1 HAS THE FOLLOWING ENTRIES: 
| 
| oye ERROR MESSAGE 
fos XXX = CMND LINE NUM 
| 104s 
| 3046 DRIVE= 
| 1047 
O48 CMND= 
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CURRENT OPERATIONS: 
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1051 


1053 
1054 PARAMETERS GIVEN: 


CYLNOR SECTOR TRACK OFFSET BAH BAL WO% 
APPLICABLE REGISTERS: 
CS! cS2 WC BA ODA OC ASOF 
ER OS Ac 6BO 
Al Bl Re Be AS 83 ECC/POS ECC/PAT 
PREVIOUS OPERATION: 
DRIVE= 
CMND= 
PARAMETERS GIVEN: 
CYLNDER SECTOR TRACK OFFSET BAH BAL WDC 
XXXXXXXXXX = NUMBER OF LOOPS 
Raves "Wr Bele tte tas SEP" Oh CP 
TERS GIVEN ENTRIES ARE LICABLE TO 


I NOT APP A 
ON SO ALL THESE ENTRIES ARE OMITTED IF PA 


i 


ARR 


RSE i a aa at 


2 
2 


is, Lene FAILING Ro COMMAND. 


THE NUMBER OF LOOPS ENTRY IS PRINTED ONLY IF THE TEST IS RUNNING 
WITH LOOP ON OR LOOP ON TEST SET. WITH THE EXCEPTION OF 
THE ERROR MES ENTRY, THE ENTRIES LISTED ABOVE ARE SELF 
EXPLANATORY. ALL ERROR MESSAGES ARE LISTED BELOW. 


5.1.1 SUBSYSTEM DETECTED ERROR 


THIS MESSAGE IS PRINTED WHENEVER THE PROGRAM IS ALERTED THAT THE 
SUBSYSTEM HAS DETECTED AN ERROR. THIS INCLUDES ALL THE ERRORS 
DETECTED IN THE CONTROLLER OR DRIVE. 


BESRR SOE eS SER Poe Bad Vaal. 


5.1.2 UNSOLICITED ATTENTION 
THIS eee in INDICATES AN_INTERRUPT WAS RECEIVED FROM A DRIVE BUT 
NO OPERATI HAT 


Bre eis es STARTED ON THA 
BE SEEN IF WRITE CHANGED OR A 
THE MESSAGE IS NOT PRINTED WHEN THE CHANGE OCCURS IF THE PROGRAM 
IS AT COMMAND LEVEL CINTERRUPTS ARE LOCKED OUT) BIT IS PRINTED AS 
SOON AS CARRIAGE RETURN IS TYPED ON THE CONSOLE. 


= 0-= 0-2 b= b= b= 0 & = 0 B- b+ 0 FB 0 = & = OF = 0 BO + 0 0 + & = Bs = 9 F< bo Ps bo Hh 2 2h <b = 2 b= Ho 9-0 2 Bh 


RREGRES 





2 te ee ee en ee os mene se & 
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§.1.3 UNEXPECTED DATA TYPE ERROR 


THIS MESSAGE INDICATES AN INTERRUPT OCCURRED D THAT WeS CAUSED BY 
RONCDATS OR ANSEER CORRAAD tps’ BEY BEING Ne EXECUTED.“ 


6b -b--6 - po 


5.1.4 ATTENTION DID NOT RESET WITH DRIVE CLEAR 
THIS faa aa INDICATES ° pays CLEAR COMMAND WAS NOT ABLE 10 
RESET THE DRIVE ATTENTION SIGNAL. THIS IS A CATASTROPHIC ERROR 


SE 
FOR THE PROGRAM. THE HIGH ATTENTION SIGNAL WILL CAUSE CONTINUOUS 
INTERRUPTS. 


5.1.5 ATTENTION DID NOT RESET WITH SUBSYSTEM CLEAR 
THIS MESSAGE INDICATES AN ERROR OF THE SAME TYPE AS “ATTENTION 


DID NO RESET WITH DRIVE CLEAR” THE DIFFERENCE IS THAT THE 
SUBSYSTEM CLEAR GENERATES RESET TO ALL DRIVES. 


5.1.6 ILLEGAL DRIVER COMMAND 


THIS MESSAGE IS AN INDICATION OF AN INTERNAL PROGRAM INTERLAU 
; SHOULD NEVER APPEAR. IF IT DOES, PLEASE NOTIFY 
DIAGNOSTIC ENGINEERING. 


5.1.7 SUBSYSTEM TIMEOUT 
THIS an POICATES THAT THE SUBSYSTEM FAILED TO SEND. 


AN 
INTERRUPT WITHIN A REASONABLE PERIOD OF TIME. “REASONABLE” IS 
SUFFICIENTLY LONG SO THAT THE INTERRUPT SHOULD HAVE OCCURRED. 


S.1.8 CLEAR CONTROLLER DID NOT CLEAR ERROR 
THIS MESSAGE INDICATES THAT THE CONTROLLER ERROR WAS NOT RESET 


WHEN A CONTROLLER nee WAS DONE. THIS HAS THE SAME IMPLICATION 
AS “DRIVE HARD ERROR” MESSAGE BUT AT THE CONTROLLER LEVEL. 


5.1.9 NO ATTENTION IN ATTENTION SUMMARY REGISTER 


THIS MESSAGE INDICATES AN INTERRUPT WAS RECEIVED FROM THE 
CONTROLLER BUT NO DRIVE HAS RAISED ATTENTION. 


Oe he ee hae ae ae han en Bw pn an 8 eo Be ae Bae Os hn Be Be be = Bs Fn Bn bn Be Fe Bae Fs as Pe ne hs ne be Bs bo he Pe ho fe Bo hn $8 Fh Bae ns Fne Hae Be Pe 
OO Otd SRR Dhar cb ITE tai .DOD MONE Corus wus MOUd Loafers Co.peo Or ul Ee oorure co Dip @ 
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He | 
1158 5.1.10 DATA LATE WHEN UNLOADING HESDER 
1168 THIS MESSAGE IS PERTINENT TO THE READ ALL HEADER COMMAND AND 
1133 INDICATES PROBLEM REACHING THE DATA BUFFER. 
1193 
i173 5.1.11 CONTROLLER ERROR WHILE DRIVER SERVICING 
1175 THIS MESSAGE INDICATES A CONTROLLER ERROR OCCURRED WHILE THE 
1176 PROGRAM WAS DOING SERVICE TYPE OPERATIONS. Ress SERVICE 
1177 OPERATIONS ARE OF THE “DRIVE SELECT” OR “DRIVE CLEAR” NATURE AND 
1178 ARE PERFORMED WHEN THE PROGRAM IS GATHERING STATUS FOR REPORTING, 
11793 CLEARING ERRORS, ETC. 
1180 
Hie 
itd 5.1.12 DRIVE PARITY WHILE GATHERING STATUS 
1185 THIS MESSAGE INDICATES THAT THE DRIVE HAS DETECTED A SERCON 
1186 PARITY ERROR WHILE THE PROGRAM WAS DOING THE SERVICE OPERATION 
1187 DESCRIBED ABOVE. 
/ 1188 
1189 
1190 
ties 5.1.13 MULTIPLE DRIVE SELECT 
1193 THIS MESSAGE IS SELF-EXPLANATORY AND WILL APPEAR WITH A SUBSYSTEM 
1194 DETECTED ERROR MESSAGE. 
1195 
; 1196 
i 1197 
iz S.2 FORMAT 2 
1209 THREE ERRORS ARE REPORTED USING FORMAT 2. THESE ARE REGISTER 
ico COMPARE ERROR, STATUS COMPARE ERROR, AND DATA COMPARE ERROR. 
1st THE REGISTER AND STATUS COMPARE ERROR REPORT FORMAT IS: 
ice XXX=CMND LINE NUM 
4 ERROR MESSAGE (STATUS OR REGISTER COMPARE ERROR) 
150 NN=REGISTER NUMBER OF STATUS WORD NUMBER 
He (VALUE EXPECTED)=GO0D DATA 
iste (VALUE RECEIVED)=BAD DATA 
isis (SPECIFIED MASK)=NUMBER OF LOOPS 
ei? ThE DATA COMPARE ERROR REPORT FORMAT IS: 
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1219 XXX=CMND LINE NUMBER 


Cn 


KO3 
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DATA COMPARE hs ON WORD NNNN 
(DATA)=G00D_ DAT 

(DATA) =BR D DA TA. 

XXXX=TOTAL MISCOMPARES 


XXXXXXXXXXSNUMBER OF LOOPS 


oe ee en es ee Oe nee te en ee ~ pee + eee ee oo, 
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APPENDIX A 





THE FOLLOWING DATA PATTERNS HAVE BEEN DEFINED. ADDITIONAL 
PATTERNS WILL BE INCLUDED WHEN THEY BECOME KNOWN. 


PATTERN “A” PATTERN “B” PATTERN “C™ PATTERN “D” 


177777 000000 1eS2Se2 052525 
oo0c00 1777 125252 0SeSeS 


(32 WORDS) (32 WORDS) (32 WORDS) (32 WORDS) 


ooogo0 177777 125252 052525 
177777 Ooooo0 125252 052525 


a 





| 
| 
| 
| 
| 


! 
i 
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PATTERN “E” 


000000 
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PATTERN "F” 


177776 








PATTERN “G” 


177776 
177777 

















1300 PATTERN “H™ PATTERN “I” 


02 
FS i 
ie ie 
1306 000010 ‘ 
1307 000020 ° 
1308 000040 : 
130 000100 (32 WORDS) 
1310 -- 000200 , 
131) 000400 ‘ 
13i2 001000 : 
1313 002000 155555 
1314 004G00 ISSSSS 
1315 010000 
1316 020000 
1317 040000 
1318 100000 
1313 100000 
1320 040000 
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APPENDIX & 


COMMAND SUMMARIES 


8.1 USER DEFINED COMMAND SET 










B.i.1 IMMEDIATE COMMANDS 


LEE ETS SBA EET 


ALL DECIMAL VALUES MUST BE LESS THAN 32767(10). 


i 


COMMANDS MNEMONIC PARAMETERS 


mm | ee nw es rn ee ee eee ee eee ee 





i352 
1353 
1354 
Se ee ee ee 
1357 DRIVE SELECTION DN ,DRIVE NUMBER 
125 9 
1369 OUTPUT TEST oT .0 
13e5 a 
1363 INPUT TEST IT NONE 
1368 INPUT STRING 1s NONE 
i366 ITERATION COUNT IC |, NNNNN 
1365 SPECIAL DATA BUFFER oP ,PATTERN NAME 
1370 *p000....D 
1372 COMPILE CO ,NO CHECK 
| 1373 "INCREMENT INHIBIT 
| 1375 EDIT ADD LINE EA JuN 
137% "NEW COMMAND 
1378 EDIT DELETE LINE ED JLN 
| 4380 EDIT BUFFER EB ,BUFFER NAME 
| 3381 "WORD POSITION 
| 1286 ,OD0D--D 
| 1384 BUFFER DUMP BD ,BUFFER NAME 
1385 "NUMBER OF WORDS 
| 1387 PRINT TEST PT NONE 
| 33e9 PRINT LINE PL ,LN 
1350 


a 


a Re ore we 2 ee en oe ——--—. Re ee ee a eee 


am Pt t 


— eee ® — Se ene em Ne ee ee nee et ee ee ee ee Oe AON RET fb) NOTES Peet & Le MUS 


eee coy 
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| nsedae SSE Z ’ 


1381 NEW TEST NT NONE 


nee OL TL TT TTT SND a TT 


i ee a re ee eee 


‘ 
' 
' 


he 
bo Ber 
a 


7] 
WEE 


BBS 


> 0-+d © 8 = pp 9 ~~ pe 
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RUN 
PRINT REGISTER 
HELP 
TIME OUT CHANGE 


COPY TAPE 
FORMAT SELECT 
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7, es 


RU NONE 

PR »REGISTER NUMBER 
HP NONE 

1 », phmnage 

CT » NONE 

FT »F ORMAT 
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B.1.2 DEFERRED COMMANDS 





ALL DECIMAL VALUES MUST BE LESS THAN 32767(1). 


COMMANDS MNEMONIC 
SUBSYSTEM FUNCTION SF 
BUFFER INITIALIZE BI 
DATA COMPARE DC 

dC 
STATUS COMPARE sc 
REGISTER COMPARE RC 
NUMBER 
REGISTER WRITE RW 
NUMBER 
STALL ST 
PRINT MESSAGE PM 


UNIBUS INITIALIZE 





PARAMETERS 


» SUBSYSTEM COMMAND 
DRIVE NUMBER 


SS 
NUMBER OF WORDS 
DATA PATTERN 


»PATTERN SELECT 
NONE 


»STATUS WORD SELECT 
meee ee VALUE 


»REGISTER NAME OR 
nck VALUE 
»REGISTER NAME OR 
» VALUE 

» NNNNN 

, MESSAGE 

NONE 
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1451 
ies 
1454 | B.2 SUBSYSTEM COMMANDS 
1455 
1456 
1457 COMMAND MNEMONIC 
ER eels he 3 ana Ne ee eC) RTD eer mene 
1459 
1469 READ DATA RD 
1461 WRITE DATA WO 
1462 WRITE CHECK WC 
1463 WRITE HEADER & DATA WH 
168 READ HEADER RH 
1465 CLEAR SUBSYSTE cs 
1467 CONTROLLER CLEAR eC 
1468 VE CLEAR BC 
1469 RECALIBRATE RC 
1470 DRIVE SELECT 55 
1471 PACK ACKNOWLEDGE PA 
1472 UL 
1473 START SPINDLE Ss 
| 1474 OFFSET OF 
| 1475 READ ALL HEADER AH 
| 1476 a 
| 1477 “NLIST MC,MD,CND 
| 1478 LIST He 
|; 479 * ENBBL 
| 1480 : DEF INE oe eaac MACROS 
| 1481 "MCALL HEADER, .SWRHI,.SWRLO, .EQUAT, .SETUP, .SCATCH 
| 44ge “MCALL :SCMTAG, .STYPE. .STYPOCT, .SPOWER, .SREAD, . STRAP 
| 1483 -MCALL -$TYrDet, SSAVE. . SDB2D 
| 1484 : SMCALL , -SS1ZE, SETTRAP, SETPRI, GETPRI 
, 148s 187000 $SWk= FINE SWITCHES 
1496 . TITLE RKB11/RKDG Oo. DEFINED tEST 
| 1487 S#COPYRIGHT (C) 1976 
1488 *#DIGITAL EQUIPMENT CORP. 
| 1463 ; HHAYNARD mass. 01754 
| 431 {SPROGRAN BY MARV TEGROTENHUIS 
| 4493 S STHIS PROGRSN WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
1434 ; SPACKAGE (MAINDEC-11-D2QAC-CO),MAR 21, 1976. 
| 1496 000001 T=) 3 
| 1337 -SBTTL OPERATIONAL SWITCH SETTINGS 
| weg + SWITCH USE 
| 1§00 3c #}§$;-‘\j}sse # sesGEeEsSrressesases 
| 1501 * x 1S HALT ON ERRO OR 
150 # 14 LOOP ON TEST 
cae + 13 INHIBIT ERROR TYPEOUTS 
| 4504 * 11 INHIBIT ITERATIONS 
| 1505 * 10 BELL ON ERROR 
| 1506 + # g COOP ON ERROR 





GRGAGICNE “~ SEERAYCONEC. suzT 


1507 
1308 


i816 


1813 


>) 
uli 
~- 
£ 


altaltalta) 
0 0+ 2 b= 6 = po 
OIC UTIL OG) 


AMAA Ca eo 


1540 
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NGS 

+. e INHIBIT MISCOMPPRE PRINTING 
3% 1 REPORT LL ATA M porwes 
he 0 SHORT REPORT FORM 


-SBTTL BASIC DEFINITIONS 


Stacks] ADDRESS OF THE STACK POINTER ### 1100 ##% 


EGUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT; SCOPE *:BASIC DEFINITION OF SCOPE CALL 
» ¥MISCELLANEOUS DEFINITIONS 
T= 11 3 ;CODE FOR HORIZONTAL TAB 
CR= 15 }}CopE FOR LIRR IARE RETURN 
CRLF= 200 _"}3CODE_FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 :  EROCESSOR STATUS WORD 
-EQUIV PS.PSW 
STKLMT= 177774 ; STACK LIMIT REGISTER 
PIRG= 177772 *PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 : HAROWARE SWITCH REGISTER 
DDISP= 177570 ;:HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= “0 ;;GENERAL REGIS 
Rl= %1 ;;GENERAL REGISTER 
= %2 ::GENERAL REGISTER 
R3= %3 ;;GENERAL REGISTER 
RY= %4 ;;GENERAL REGISTER 
RS= 4S :GENERAL REGISTER 
= %b GENERAL REGISTER 


EQUIV R6,SP >:STACK POINTER 
“EQUIV R7,PC . PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
PRo= OO ;;PRIORITY LEVEL 0 
PRi= 40 ;;PRIORITY LEVEL 1 
PRe= 100 >:PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
PR¥= = 200 ::PRIORITY LEVEL 4 
PRS= 240 ;;PRIORITY revel 5 
PRE= 300 >:PRIORITY LEVEL : 
= 340 >:PRIORITY LEVEL 7 
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Bera ata Vial eR eR 
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SRRESSS 


rar 
ul 
Nite 
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O3-NOV-76 22:40 PAGE 47 


:*#DATA BIT DEFINITIONS (BITOO TO BITIS) 
= 100000 


BITS: 


frawee 
Res 
Bee 


Serer sre 
oO 


+= ERS EREtSSeas. 
-— 
aT eR 


murine 

2222 

aba 

<<<< 
DOWDOOWOOOOO~—Mw cM co 


2 
Me 
Oo 

& 
e 
-_" 


Baia 
225 
enn we 

Beer sss * 


RAPVEC=34 
TKVEC= 60 





RAP VECTOR ADDRESSES 


3; TIME OUT AND OTHER ERRORS 
AND ILLEGAL INSTRUCTIONS 


; sRESERVED 


33-1" BIT 
3} TRACE T 


TRACE 
* BRE 


; ;BREAKPO 
3; INPUT/OUTP 


RAP 
INT TRAP 


(BPT) 
UT TRAP (IOT) *##SCOPE## 


?:EMULATOR TRAP (EMT) **ERROR## 
238 TRAP 


::TTY KEYBOARD VECTOR 





BASIC DEFINITIONS 

000064 PYEC= 64 yt PRINTER VECTOR 

000240 

-SBTTL TRAP CATCHER 
oooosc 
TO CATCH ILLEGAL TRAPS AN 

174 80000 PREG: “He ;;SOFTWA PLAY _REG 
176 855550 BiRES: oro 5 + EOE TARE gi TCH RE ete 


0200 
000200 900137 OO0411& ine dsUDTSRT 





cca 
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j 
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| 
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aeRO ——— 





PROV EC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


=0 
sOLL, UNUSED LOCATIONS FROM 4 = 776 RON eT A_”.+2,HALT” 
s#LOCRTION o CONTAINS 9 TO CATCH IMPROPERLY LOR LOADED VECTORS 
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COMMON TAGS 
1634 .SBTTL CUMMON TAGS 
1636 $ HEBER 
1637 > THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
1639 
1640 901100 21100 
eas DO1100 Scneee’ wor NTRING Pres COUNT 
as oe $ 99 
1808 Bot tee acon ee NM: <BYT! ue rte ef sec 
1644 001103 050 SERFLG: .BYTE O 
ifue Boties So0000 [eAoR: “WORD OO /aMat SUBIES ERATION, COUNT 
1647 OO1110 goocog LPERR: - WORD 0 Sain ni TURN FOR ERRORS 
1648 OOllie SERTTL: . 0 CONTA NS TAL ob RORS DETECTED 
1648 01118 900 SITEMB: -BYTE 0 Hee NTA 
a é $ i} 
i bel Boilie ooothh Serre: - HORD Q i Pa OF as Pete Hern 
1653 OOll22 Bp00eB BOOeE Soo OOR: “WORD OQ $F CONTAINS ADDRESS OF Baer cata 
1654 001124 000000 SGDDAT: .WORD 0 : CONTAINS ° 
TEee bortS8 Boooee et ee > a + EO RED-HOT. rah USED 
1657 OO1132 oo0000 “WORD 0 s 
1658 001134 00 SAUTOB: .BYTE 0 ss UTORATEE MODE INDICATOR 
1853 001135 000 SINTAG: .BYTE 0 INDICATOR 
1680 001136 oo0000 “WORD 0 
1661 001140 177570 SWR: .WORD DSWR ;;ADDRESS OF SWITCH REGISTER 
1668 001142 177570 DISPLAY: Hoe DDISP 3 § ADD ESS OF DISPLAY REGISTER 
1664 001146 177epS STKB: 17rEpS ::TTY KBO BUFFER 
1665 O01150 177564 $TPS: 177564 :?TTY PRINTER STATUS REG. ADDRESS 
lee? Dotted | anS Swi: JBvIe’ oO t CONTAINS RULE CHARACTER FOR FILLS 
| EB SBLES he Scie: “EVIE, j CONTAINS 8 Of EILLER Gnaec sens RequineD 
? . itr 
| 4670 001157 000 STPFLG: .BYTE 0 *:"TERMINAL AVAILABLE” FLAG (B11<07>=O0=YES) 
| 1671 001169 oo0000 HI IMES: 6 j SMB, NUMBER OF ITERATIONS 
| 1673 OO1164 bast 000377 ESCAPE: (207) <377><377> + TER Oe FoR L _ 
| 1674 001170 077 SQUES: .ASCII /7/ >: QUESTION MARK 
1675 001171 O15 SCRLF: <ASCIIT <iS> 3 ;CARRIAGE RETURN 
| 1676 001172 oo0012 SLF: .ASCIZ <12> *LINE FEED 
| 1972 $ satan oats Haare ca ee etseeevoretnsssentesenennaen 
| 4678 001174 op0000 ODE: WORD O PUNCH CODE (OBJECT OR SOURCE) 
/ 4680 001176 po000% DRIVES “WORD 1 ;LAST ADDRESSED DRIVE NUMBER 
| $285 BbtSoe 00000 FRENUM: “HORD fed SIVEN FRAG ADDRESS 
| 1683 001204 00000 “SECNUM: . WORD LAST GIVEN SECTOR ADDRESS 
1684 001206 po0409 WOCNT: : WORD 400 sL ABT GIVEN WORD COUNT 
| 1686 OOlel2 o000cS FORMAT: :WORD 26 LAST FORMAT SELECTED 
| 4687 001214 000000 SUBCMD: . WORD LAST ENTERED SUBSYSTEM COMMAND 
| 1688 001216 000000 STATRD: .WORD O ;LAST SELECTED STATUS MESSAGE 
| 1689 001220 000000 STVAL: .WORD LAST VALUE READ FROM STATRD 
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OCi2e2 177777 SMASK: .WORD 177777 st Aat GIVEN STATUS MASK 
000000 - WORD T ADDRESSED RK611 REG. 
‘LAST VALUE Pah OR READ FROM REGNUM 
77777 ;LAST GIVEN REGISTER MASK 


cata 
soe FE EMPTY(NO VALID SOURCE) 


Oo 
-_ 


R HAS NEC PAT Z 
SOBER HAS DEFINED A RANDOM PAT 
NUMBER OF LINES IN BUFFER 


;BIT 1 - NO CHECK MODE SWITCH 
:BIT 2 BUS ADDRESS INCREMENT INHIBIT SWITCH 
BIT 3 - 20 SECTOR FORMAT 
SFPTR: .WORD ; SOUR on FILE POINTER 
: WORD ;PUNCH FILE SIZE. NUM OF BYTES IN 
; SOURCE OR OBJECT ae 


000000 ALL: . ALL 
000000 COMSZE: .WORD OQ ‘DATA COMPARE S12e PARAMETER 
000000 LOFFST: .WORD 0 LAST OFFSET 


1715 001260 003720 TOVAL: .WORD ‘tD2000 ;TIMEOUT VALUE 
1716 OOlebe 000040 PATX: .BLKW 40 ;USER DEFINED PATTERN X 


PATY: .BLKW 40 ;USER DEFINED PATTERN Y 
PATZ: .BLKW 40 ;USER DEFINED PATTERN Z 


PATR: .BLKW 40 ;RANDOM PATTERN STORAGE 
-SBTTL CONTROL PARAMETERS 


-EQUIV SERRPC,LINNUM 
-BYT 


001 . 
001243 000 ae .BY 
001 


8 

— 

? 

~- 

oO 

3 

wo 

= S 
Ci timmimmn 535 
MnwowDmo D2O00}—0Ore-r-- 
+> 
“44+ 
Grune 


48 
: 
w 
ww 
Oo 


1710 


;PRINT ag eM SWITCH 

i CHAINI NG FLA 

;COMPILE ERROR “LAG 

;OFFSET FLAG 

ota DRIVE SWITCH 

:PAR ANETER BLOCK peer SWITCH 
REPORT PASS SWITC 

;HELP VALID saitcH 


OCISZE: .WORD ;OBJECT FILESIZE 
PATPTR: .WORD POINTER TO PATTERN BUFFER 


w 

2 

2 
WOoddod0000 


| 


; 
eres Gasca 9 § 
3 


1739 001700 : .WORD 400 AXIMUM WORD COUNT (SET BY PROGRAM) 
1 001702 TEMP1: .WORD QO TEMPORARY TORAGE 
1741 001704 TEMPe: .WORD OQ ; TEMPORARY STORAGE 
1742 001706 OBUFPT: .WORD QO OUTPUT BUFFER POINTER 
1743 001 BUFPT: .WORD QO BUFFER POINTER 
001 TR: .WORD OQ 
001 WORD 0 


I FE 
fs 39 FILE POINTER 


OFPTR: 
CNTSTR: ;STORAGE FOR ITERATION COUNT 


| - RESSASRR MATT AT TO Srna CSET REO SSE SRR EOS 
S888 
fururur 
GREE 
Bie 
SENS 
=aaR 
ghee 
So 
SEEEE 
mooe 
o 
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CONTROL PARAMETERS 


pooeee 


ato 


iatetslatestotsisiciste 
EROS Roe SABE 


000140 
000141 
000164 
000176 
000177 
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RTSPC: .WOR 000207 ; RETURN Cone Tot 
JSRRY: .WOR 004437 * JUMP CONSTANT 
bar a 8 eee a can 
PTRSR: .WORD 177550 : PAPER’ Ape Rabe B TER us REGISTER 
PTRD8: .WORD 177552 : PAP KK tee READER DATA REGISTER 
PTPSR: .WORD 177554 : PAPER TAPE PUNCH STATUS REGISTER 
PTPDOB: .WORD 177556 :PQ APER TAPE PUNCH DATA REGISTER 
HDBUFF: .BLKW 102 * READ ALL HEADERS BUFFER 
SBTTL RKO& CONTROLLER REGISTER DEFINITION 
RKCSI1= 0 ;CONTROL AND STATUS REGISTER 1 
RKWC= 2 : WORD COUNT REGISTER 
RKBA= 4Y ;BUS ADDRESS REGISTER 
RKDA= 6 ; SIRED TRACK SECTOR REGISTER 
RKCS2= 10 ;CONTROL_ AND STATUS REGISTER 2 
DS= ile : DRIVE STATUS REGISTER 
R= 14 ERROR REGISTER 
RKASOF= 16 :AT TENTION SUMMARY AND OFFSET REGISTER 
= 2 * DESIRED CYLINDER REGISTER 
eeneee SS pea CYLINDER REGISTER 
RKMRI= 26 MAINTENANCE REGISTER 1 
RKMRe= 34 } MAINTENANCE REGISTER 2 
RKMR3= 36 : MAINTENANCE REGISTER 3 
RKPOS= 30 *ECC Poat TION INFORMATION 
RKECPS= 30 ECC POSITION INFORMATION 
RKPAT= 32 sECC PATTERN INFORMATION 
RKECPT= 32 *ECC PATTERN INFORMATION 
-SBTTL DRIVE COMMANDS 
SELORV= 101 ;SELECT ORIVE 
PACK= 103 :PACK ACKNOWLEDGE 
CLEAR= 105 ; DRIVE CLEAR 
UNLOAD= 107 ; UNLOAD 
SRTSPL= 111 : START SPINDLE 
RECAL= 113 ;RECALIBRATE 
OFFSET= 115 Creer 
EK= 117 
TA= lel *REA D DAT 
WRDATA= 1e3 WRITE BATA 
HEAD= 125 *READ ADER 
WRHEAD= 127 :WRITE or AND DATA 
TCHK= 131 * WRITE CHECK 
; THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER 
: TO SIMULATE A SPECIFIC DESIRED OPERATION 
RELEAS= 140 ;RELEASE DRIVE 
RDSTAT= 141 GET ALL STATUS FROM DRIVE 
RDALHD= 164 ;READ ALL HE 
CONCLR= 176 : CONTROLLER CLEAR (BIT 15 OF CS1) 
SUBCLR= 177 : SUBSYSTEM CLEAR (BIT S OF CS2) 
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1808 000300 INTR= 300 sGENERATE INTERRUPT TO CPU 
1803 ¢ : DRIVER ISSUED SERVICE COMMANDS 
1 R.SEL= 0 R LECT 
A Lik @ DANE SE 
1gu9 __—-,SBTTL_ CONTROL AND STATUS REGISTER 1 BITS 
1811 900901 "60s BITO :GO_BIT 
1812 900190 IkE= _—«BITB t INTERRUPT ENABLE 
1813 900200 RDY= BIT? : CONTROLLER READY 
1814 0400 BAlb= 8IT8 :BUS ADDRESS BIT 1g 
1815 991000 BAl7= BIT9 :BUS ADDRESS BIT 
1816 902090 CDT=  BITIO : CONTROLLER ORIVE tVPE (O=RKO6) 
1817 004000 CT0=  —s- BIT11 CON TROLLER TIMED OUT WAITING FOR 
1818 DRIVE RESPONSE 
1319 010000 CFMT= 8IT12 SCONTROLLER DRIVE FORMAT (0=22 SECTOR, 1=20 SECTOR) 
1820 020900 SPAR= BITI3 ‘DRIVE BU S PARITY ERROR DETECTED BY CONTROLLER 
1821 040000 I= BIT14 ;DRIVE INTE 
1822 100000 CERR= BITIS : CONTROLLER RERROR 
1883 100000 CCLR= BITIS + CONTROLLER CLEAR 
1825 : THESE BIT DEFINITIONS ARE USED FOR ADDRESS 
182% THE HIGH BYTE OF RKCS1 
1828 900001 B.BAL6= BITO sBUS ADDRESS BIT 16 
1829 oooo02 8:BAl7= BIT1 3BU5 ADDRESS BIT 17 
1830 000004 ‘ B:CDT= BIT2 !CONTROLLER DRIVE TYPE (O=RKO6) 
1831 0 . 8.CFMT= BIT4 ‘CONTROLLER DRIVE FORMAT (pees SECTOR, 1220 SECTOR) 
| 1833 .SBTTL CONTROL AND STATUS REGISTER 2 BITS 
| 1835 000007 DRVMSK= 7 SMASK FOR DRIVE SELECTION CODE 
1836 010 DESL=  BIT3 :DESELECT OR RELEASE DRIVE IN BITS 0-2 
1837 900010 RiS= BIT “DESELECT OR RELEASE DRIVE IN BITS 0-2 
1B 0020 BAI=  BITY ‘BUS ADDRESS INCREMENT INHIBIT 
18393 O00040 CLR= «BITS ‘CLEAR CONTROLLER AND ALL DRIVES 
| 1840 40 SCLR= BITS ‘CLEAR CONTROLLER AND ALL DRIVES 
1841 000100 IR= BIT : INPUT READY 
1842 0200 OR= —s-BIT? SOUTPUT READY 
1843 0400 = BITs8 ‘UNIT FIELD ERROR 
| Ipu4 001000 MDS= BITS sMULTIPLE DRIVE SELECT 
| 18 000 _ PGES ~—saBITiO : PROGRAMMING ERROR 
1646 004000 NEM= BITI1 ‘NON-EXISTENT MEMORY 
| 1847 010000 NED=  BITI2 ;NON-EXISTENT DRIVE 
| 1848 020000 UPEs BITI3 ‘UNIBUS PARITY ERROR 
| 1849 040000 WCE=  BITIY “WRITE CHECK ERRO 
! 1850 1000 DLT=  BITIS !DATA LATE ERROR 
| 1688 .SBTTL ERROR REGISTER BIT DEFINITION 
| 1854 00001 ILCs BITO ILLEGAL FUNCTION CODE 
| 1855 -*ILF= BITO ‘ILLEGAL FUNCTION CODE 
| 1656 oooo0e &kI= = BIT! *SEEK INCOMPLET 
| les? oo0004 ILF=  BIT2 ‘ILLEGAL DRIVE FUNCTION 
| 
L 
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NXF= BiTe ; ILLEGAL DRIVE FUNCTION 

DRPAR= BIT3 DRIVE DETECTED DRIVE BUS PARITY ERROR 
FMTE= Bite ;FORMA OR 

DTYE= ITS ; DRIVE TYPE ERROR 

ECH= BIT6 C HAR 

BSE= BIT? ‘BAD SECTOR ERROR 

HCRC= 8IT8 ; HEADER CRC Bannon 

HVRC= BITS ;HEADER VRC 

COE= BITS ;CYLINDER a "OVERFLOW ERROR 
IDAE= 81710 IN VALID ge ADDRESS ERROR 

WLE= BIT11 ;WRITE oun 

OTE= 81Tle ; DRIVE TINING. RROR 

OPI= 8IT13 j OPERATION (SEARCH) INCOMPLETE 
UNS= BIT14 DRIVE UNSAFE 

DCK= BITI1S DATA CHECK 





-SBTTL STATUS REGISTER BIT DEFINITION 







DRA= BITO ;DRIVE AVAILABLE (CONTROLLER IS SET IF. 
THIS BIT IS RESET) 

OFST= 8ITe ‘DRIVE OFFSET 

ACLO= BIT3 SAC LOW 

SPDLSS= BIT4 : SPEED LOSS 

DCLO= BITY ;DC_L 

DROT= BITS DRIVE OFF TRACK 

WV= BIT& VOLUME VALID 

DRY= BIT? pee READY 

DRDY= 8BI1T7 ;DRIVE READY 

DDT= #£«8B1T8 :DRIVE TYPE (O=RKO6) 

WRL= BITI1 WRITE LOCK 

PIP= BIT13 POSITIONING IN PROGRESS 

DSC= BIT1Y DRIVE STATUS CHANGE 

SVAL= BITIS ;STATUS VALID 










-SBTTL MAINTENANCE REGISTER 1 BIT DEFINITION 

MESMSK= 17° ;MESSAGE MASK 

PAT= BITY ;FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES 
OMD= BITS sDIAGNOS 

MSP= BIT6 MAINTENANCE SECTOR PULSE 

MIND= BIT7 SATNTENANC E INDEX 

MCLK= BITS inal NANCE CLOCK 

MERD= BITS MAINTENANCE ENCODED READ DATA 
MEWD=  BIT10 iMAINTENACHE ENCODED WRITE DATA 
PCA= 8B1T1l ; PRECOMPENSATION her. a 

PCD= BITle Een Te Gee 

ECCW= BIT13 ; WORD IS BEING READ OR WRITTEN 
WRTGAT= BIT14 sR GATE 

DGATE= BITIS ; 

-SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE A 

S.DRA= BITS j DRIVE AVAEL IPGLE 

S.VV= BITE ; VOLUME VALID 

S.DRY= BIT7 s DRIVE READY 
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COMMON MASKS 
1370 42060 ™.CADD= 177 ee ee ADORESS 
1308 o760 MEECT= 760 ayo coun 
197 7000 M.HEAD= 7000 SEC Refobe 
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omen etn re ee es ee + ee oe 








RKE11/RKOS USER DEFINED TEST MACY] e7(732) O3-NOV-76 22:40 PAGE S6 
DZRERB. CNS PARAMETER BLOCK ALLOCATION 





1374 .SBTTL PHRAMETER BLOLK ALLOCATION 
1976 3% FSFSRARESLSASSAELEALELSE PEELE SEALS FAASLEFSESSEELAF SS 
1977 :# 1  § COMMAND ! DRIVE NO 'g 
1978 :# 3  # CYLINDER ADDRESS i 2 
1979 te § # TRACK SECTOR | 
- 1980 :# 7 i§BA1G-17,FORMAT,ORV TYPE! OFFSET . ¢ 
1981 seu BUS RODRESS (COW 1b BITS) 19 
1355 i tg i BRCoREN DRIVE Besih SOUS NRMATION i 14 
1984 :# 17 § COMMAND AND STATUS REGISTER 1 i ig 
1985 ?% 21 | COMMAND AND STATUS REGISTER 2 i 20 
1986 :% 23 § WORD COUNT REGISTE i 32 
1987 ?# 25  § BUS ADDRESS REGISTER i 34 
188 *% 27 § DESIRED TRACK AND SECTOR i DE 
1989 :# 31  # DESIRED CYLINDER i 30 
1990 *# 33 | ATTENTION SUMMARY AND DRIVE OFFSET i 32 
199] *# 35 «©? ERROR REGISTER i 34 
1992 :# 37! STATUS REGISTER i 36 
1963 re 4p MESSAGE LINE A STATUS BYTE 00 i 49 
1804 :# 43 § MES LINE B STATUS BYTE 00 i ya 
1995 *# 45 § MESSAGE LINE A STATUS BYTE O1 i yy 
1995 2% 47 | MESSAGE LINE : ST BY i ug 
1997 *# 51 # MESSAGE L STATUS BYTE 10 i so 
1998 :# 53 Ct RESSAGE LINE B STATUS BY i 53 
1999 7# 55) ft MES LINE A STATUS BYTE 11 i 54 
2000 2% 57 § MESSAGE LINE 8 STATUS BY i 56 
2001 *# 61  § ECC POSITION INFORMATION i 60 
e002 :# 63 | ECC PATTERN INFORMATION i 62 
cone : $ HFLEFELEFEFSREF THE RKESFSESSFSSRFRRLSEELASEELELHEELES 
2005 .SBTTL PARAMETERS PASSED 10 THE DRIVER 
soo ‘ : THE FOLLOWING DEFINITIONS ARE USED T0 PASS PARAMETERS 

2008 : TO THE RKOG DRIVER 

| 5916 po9090 P.DRVN= 0 SDRIVE NUMBER 

| Ol 006001 P.CMND= 1 :C 

| pole pp0002 P.CYLN= 2 CYLINDER ADDRESS 

| O13 009004 P.SECT= 4 SECTOR 

| 2014 po000s P.TRCK= 5 : TRAC 

| 2015 000006 P.OFST= 6 OF; 

| BOIe 000007 P.CSIH= 7 : 

| 2017 000007 B-BaHI= ? > BU TS 16 AND 17) 

2018 000010 P.BALO= 10 * BUS TS 0-15) 

| 2019 000012 _ PiWCs 12 : WORD COMPLEMENT) 

| e024 000014 P.PRST= 14 : : TATUS INFORMATION 

| E28 .SBTTL PROGRAM DEVICE STATUS REGISTER DEFINITION 

| 8084 000001 DRVUSE= BITO sDRIVE IN USE 

| 2025 po0002 ORVPOS= BIT! :DRIVE POSITIONING 

edet ORVPOT= Bite sDRIVE POSIT ONED FOR DATA TRANSFER 

| 000010 XATT= BITS : CTED ATTENTION 

| 2028 DRVHRD= BIT4 ‘DRIVE HAS HARD ERROR 
2029 000040 DRVDSC= BITS DRIVE STATUS CHANGE DID NOT CLEAR 








cctcocaoeeereeeees eee 


SLATS SS AGING Hilce UALS PABA OO MES 


gp30 000100 CMOTO= BiTé ;NO TERRINAT ON TO COMMAND FOR AT 
1 ; LEAST 1 SECOND 
2032 000200 W. oom ait? ;WRITE FOR WRITE WRITE CHECK 
033 pe cob NOCHK= BITS ;NO_ CHECK et T SET INTERRUPT ENABLE 
1000 PBSVAL= BITS wore STATUS WORDS VALID 
coer wel ERR Ai Manet OR 
002000 prunes BIT10 EST Se quenc 
000 NODSC= BIT11 pe, p ORIVE Li oe “FAULT RESET 
Banos ORVSZD= BIT12 ; DRIVE ete er Y-OT 
-UNLD= BIT13 ir VE_UNL 5 ERROR 
040090 Q.INIT= BIT14 AMETER BLOCK ENQUEUED IN INITIATION QUEUE 
190000 DTBAIT= SITI1S STNNIBTT BUS ADDRESS INCREMENT 


-SBTTL PARAMETERS PASSED FROM DRIVER TO PROGRAM 
THE FOLLOWING DEFINITIONS ARE ee FOR REGISTER RETURNS 


Eke REBUM SS Se ae oe eaae dR 


: FROM THE DRIVER TO THE CALLING PR 
000016 P.cSl= 16 COMMAND AND STATUS REGISTER 1 
900020 P.CSe= 20 “COMMAND AND STATUS REGISTER 2 
p00022 P.WCR= 22 WORD COUNT REGISTER 
900024 P.BAR= 24 :BUS ADDRESS REGISTER 
90006 P-OTS= 26 * DESI SECTOR REGISTER 
999630 P-DOCYL= 30 ‘DESIRED CYLINDER REGISTER 
P.ASOF= ‘ATTENTION SUMMARY/OFFSET REGISTER 
000034 P-ER= 34 * ERROR GISTER 
000036 P.0S= 36 *STATUS REGISTER 
000040 P-A00= 40 *MESSAGE A STATUS BYTE 00 
oo004e P.800= 42 ; MESSAGE : STATUS BYTE 60 
900044 P/ADl= 44 : MES TAT E O01 
| eee Paid: 86 iMeeene 8 STATUE BYTE $0 
| 000052 P-BiG= 52 imecoace 8 STATHe OTE 10 
| 2064 900054 P-Ali= 54 MESSAGE A STATUS BYTE 11 
OES 900056 P.Bli=z & :MES B STATUS BYTE 11 
2066 000060 P-EPOS= 60 ECC POSITION INFORMATION 
2067 000062 P-EPAT= 62 SECC PATTERN INFORMATION 
2068 PRTCON=64 PRINT CONTROL WORD 
.SBTTL PARAMETER BLOCK O FOR DRIVE 
PARMO: .BYTE 0 DRIVE NUMBER 
“BYTE 0 : COMMAND 
“WORD 0 CYLINDER ADDRESS 
“BYTE O SECTOR ADDRESS 
"BYTE O TRACK ADDRESS 
BYTE sOFESET YELLE TS 16 AND, 17) 
FORO :BUS BUS ADoRESS Eins ee 
: 0 WORD COUNT (2°S SOnPL tPAr) 
- WORD 0 : PROGRAM VE ST NFORMAT 
"Wd 0 * COMMAND TATUS REGISTER 1 
“WORD O ;COMMAND AND STATUS REGISTER 2 
"WORD O WORD COUNT REGISTER 
“WORD O ‘BUS ADDRESS REGISTER 
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-SBTTL ERROR POINTER TABLE 
pers rORLE conan NS he Ae Ab alt Ah FOR Fe EACH Shek tree FFouhD aan. 


LOCATION SiTery, THis NUMBER + Be ncn IT ITEM An YT We TORE | IS PERTINENT. 
; *NOTEL: F SITEMB IS 0 DATA_IS ($ 
; NOTES: EACH ITEM IN THE TABLE CONTAINS H POINTERS EXPLAINED AS FOLLOWS: 


* 
7% EM ; ys POINTS TO THE lee MESSAGE 
% DH 1831 TS 18 Ly. pare HEADER 
:% 


F + sEOINTS 10 T0 - BATA FORMAT 


SERRTB: 
PROGID: .ASCII <l2>d% RK&11/RKOG USER DEFINED TEST #0<15)< 12> 


: 
: 


thin 
see 


: 
: 


atetets —— 
oru 


e 
fu 
vaaee 
—UIGIG) 


-ASCIZ /MAINDEC-11-DZRER-B/<15>< 12> 


2&8 
g 
é 


i 
2 


HELPQ@: .ASCIZ /TYPE HP TO PRINT HELP £/<15)<12) 


eS 
ée 


rererorurorororororonoruronororurorurururorurorurururururururururorororururururufururururofurururururururufroruru 
ee ee ee ee he ae ae ae ae ae ae Be Be bn bn Be Be Bn bs 0 be Be 0 Fs bw ne Bnew Bs Be Be Bs me Pn Bae Pann bmw Be b-2 ho b= b= b= Po Bs Pe bo he 


O44S22 052116 
046105 020120 
042514 005015 
oe -ASCIZ /%/ 
124 051 020124 SCTOBG: .ASCIZ /TEST PROGRAM TO BIG/<15><l2> 
051120 043517 O40See 
Bost? postis O00 
1 13 1522 NOROOM: .ASCIZ /SOURCE FILE FULL/<15><1l2> 
71 0201 O44S06 2514 
72 043040 O46125 006514 
73 002514 o00012 
74 pocels EQSGN: .ASCIZ /=/ 
75 it 0461 020104 BADDEC: .ASCIZ /INVLD DECIMAL/<15><l2> 
3 002534 006514 O000l2 - 
% 002540 paggeh psies cate IVDEDT: .ASCIZ /INVLD EDIT CMND/<15><12> 
63 Bosees OMPITe OEsOY Bodie 
81 O02S62 047111 O4%612e6 O20104 IVDADD: .ASCIZ /INVLD NEW CMND/<15><12> 
Be 70 stie Ce01e7 O46503 
83 2116 O0O0S01S 000 
BY Ath O0S3116 elke IVDLN: .ASCIZ /INVLD LINE NUM/<15><12> 
eP eats 052516 preets BoDoLS 
e 7111 Dieiee peoete IVDPAR: .ASCIZ /INVLD PARAMETER/<15><12> 
89 0026 04 006 000012 
90 O0264% 047111 O46126 020104 BADOCT: .ASCIZ /INVLD OCTAL/<15><le> 
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DZRERB. CNB ERROR POINTER TABLE 


HPFILE: 


BADCOM: 


IVDWCT: 


STNTVD: 


TOTMSC: 


-ASCIZ 


: .ASCIZ 
: .ASCIZ 


-ASCIZ 


: .ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


s .ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
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/HELP FILE AVAILABLE ONLY AS FIRST COMMAND AFTER PROGRAM LOAD. 7<1S>< 12> 


/NO OBJECT/<15><12> 
/COMPILE OK/<15)<12> 


“NO SOURCE/<15>< 12> 


/INTERNAL COMPILER ERROR/<15><12> 


7INVLO OR UNDEF CMND/<15>< 12> 


“WORD COUNT TOO BIG/<15><12> 


7INVLD CMND IN NC/<15>< 12> 


/INVLD DRIVE NUM/<15>< 12> 


/PUNCH ERR/<15>< 12> 


/READER ERR/<15>< 12> 


(12>/DRIVE STATUS NOT VALID/<15><12>< 12> 


/sTOTAL MISCOMPARES/<15><12><12> 
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DZRERB. CNB ERROR POINTER TABLE 





2 000 
OF'S Piast IOBFSZ: .ASCIZ /=MAX WORD COUNT FOR DATA TRANSFER/<15><1le> 






Bi 
REL 


Mor 
RRP 
2 
x 
ne 


fp be 






3505S BADSEL: .ASCIZ /ILLEGAL REGISTER SELECTED/<15>< 12> 


Az 
on- is 





oR 
Se 

uae 
2 
wn 






eSe4 lee 
2eSe3 O4eS14 052103 
005015 006 

13 075 O0Se516 palit? LPLABL: .ASCIZ /=NUMBER OF LOOPS/<15><12><12> 







4 
es 
2 
vi 
N 


LONTOF: .ASCIZ /# LOOP COUNTER OVERFLOW */<15><12> 
















Bees Ge Be ee 
2267 boob 051105 Owe 106 053517 
2268 70 O25040 Oo0S0i 000 
2269 003475 127 051117 O20104 DMPHDR: .ASCIZ /WORD # CONTENTS/<15><12> 
2270 002502 o20043 O20040 do20040 
2271 003510 Oe0040 O20040 0 
2e7e 003516 047503 OS2116 047105 
2273 003524 051524 o0S015 
2274 002531 O40 O2004D O20040 SPACEG: .ASCIZ / / 
2275 003536 oo0040 
e276 003540 O20040 000 SPACE2: .ASCIZ / / 
2278 ASTTL TABLE OF INTERACTIVE COMMANDS ean Re 
2279 *STTL TABLE OF INTERACTIVE C 
2280 THIS TABLE CONTAINS ALL THE INTERACTIVE COMMANDS. 
2281 *#THERE ARE 4 WORDS PER ENTRY: 
2282 : C MNEUIMO'IC 
2283 * WORD IF IMMEDIATE, ADDRESS OF INTERACTIVE COMMAND PROCESSOR 
2284 2 ROUTINE FOP THIS COMMAND. IF DEFERRED 
228s : ADDRESS OF THE COMPILATION ROUTINE FOR THIS COMMAND 
2286 s BMORD 3 IF IF DEFERRED NUMBER OF PARAMET ERS ASSOCIATED WITH 
ooee SWORD 4 ADDRESS | F EXECUTE ROUTINE 
2289 + FOR THIS COMMAND. IF IMMEDIATE, ALL 0’S 
| ze90 jxTHIS TABLE IS USED IN COMMAND ENTRY AND TEST 
e232 * g «HHH HHH HEHEHE HEHEHE HEHEHE HEHEHE HUBS 
2293 003544 EVEN 
2294 003544 047524 ICTBL: :ASCII /TO/ ; TIMEOUT 
| e295 003546 O06062 177777 oD0000 : TORTE,-1,0 
| 9296 003554 047104 “ASCII /DN/ ;DRIVE SELECT 
| 2997 003556 006144 177777 oD0000 “WORD ONRTE,-1,0 
| 2298 003564 052117 “ASCII /0T/ OUTPUT TEST 
| 2299 003566 Ole420 177777 o00000 “WORD OTRTE,-1,0 
2300 0035 Dell "ASCII /IT/ s INPUT TEST 
| 2301 003576 013020 177777 o00000 “WORD ITRTE,-1,0 
| 2302 052103 “ASCII /CT/ COPY TAPE 
| 

























2303 003606 
ae ies 
e307 003626 
pe tee 
e 003636 
2310 O03644 
2311 O03646 
e3l2e 003654 
2313 003656 
2314 003664 
2315 003666 
2316 003674 
2317 003676 
2318 003704 
2319 003706 
2320 003714 
2321 003716 
2322 0037e4 
2323 003726 
232% 003734 
23eS 003736 
2326 003744 
2327 003746 
23e8 003754 
7 003756 
1 003766 
esse 003774 
2333 003776 
2334 004004 
2335 004006 
2336 004014 
2337 004016 
2338 O040e4 
2339 004026 
2341 
es4e BoNOss 
2343 OO04046 
e344 O040S4 
2345 004056 
e346 OO4064 
2347 OO4066 
2348 004074 
2349 004076 
2350 004104 
2351 004106 
2e3Se 004114 
2353 
2354 
Sse> 004116 
235 
2358 OO04116 
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DZRERB. CNB 


022114 


oO 
= 


eecec? 
PeRneSS 


Gat 


177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
177777 


001100 





000000 
000000 
ooo0c0 
oooc00 
000000 
oocc00 
000000 
ooocco 
ooo0o00 


020536 
020204 
017610 
020026 
020426 
020446 
013516 
021424 


MACY11 27(732) 
TABLE OF INTERACTIVE COMMANDS 


CSCBIS: 


wT SRT: 
-SBTTL INITIALIZE THE COMMON TAGS 
Ms OM SCHTAG, (SCMTAG) AREA 





“ASCII OF TABLE 
Pr itt eh ene nrnnn nen Ti ott rr Sennen eee 


LEAR 


O3-NOV-76 22:40 PAGE 62 


CTRTE,-1,0 
/IS/7 
ISRTE,-1,0 
/IC/ 
ICRTE,-1,0 
/FT/ 
FTRTE,-1,0 
/EB/ 
EBRTE,-1,6 
/DP/ 
OPRTE,-1,0 
7CO/ 
CORTE,-1,0 
/EA/ 
EARTE,-1,0 
/ED/ 
EDRTE,-1,0 
/PT 
PTRTE,-1,0 
/PL/ 
PLRTE,-1,0 
/NT/ 
WINTE, 71,0 
mare, -1,0 
PRRTE, -1,0 
/HP/ 
HPRTE,-1,0 
/BD/ 
BORTE,-1,0 
/SF/ 
CSSF,10,0 
/BIZ 

CSBT, 1, E881 


/ 
C$0C, 1, ESDATC 
/SC/ 


C$SC,3,ESSC 
/RC/ 


CSRC,3,ESREGC 
/RW/ 


CSR, €, ESRM 
CST, 1,ESST 
CSPM,1,ESPM 


/UI/" 
csuT,O, ,0,ESUI 


TAG, R6 


; INPUT STRING 

; ITERATION COUNT 
;FORMAT SELECT 

;EDIT SPECIAL BUFFERS 
;SPECIAL DATA PATTERN 
; COMPILE 
;EDIT ADD LINE 
;EDIT DELETE LINE 
;PRINT TEST 
;PRINT LINE 
;NEW TEST 

; RUN 

;PRINT REGISTER 
;HELP 
;BUFFER DUMP 
; SUBSYSTEM FUNCTION 
;BUFFER INITIALIZE 
:SPECIAL TAG FOR BUFFER INIT 
;DATA COMPARE 

;STATUS COMPARE 

;REGISTER COMPARE 

;REGISTER WRITE 

;STALL 
;PRINT MESSAGE 
;UNIBUS INITIALIZE 


;;FIRST LOCATION TO BE CLEARED 
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CNS INITIALIZE THE COMMON TAGS 
2359 oo4l22 oDsoe6 CLR (R6)+ CLEAR MEMORY LOCATION 
2360 004124 O22706 001140 CMP #SWR,R6 ;;DONE? 
2361 004130 001374 BNE ~ ;;LO0P BACK IF NO 
2362 O04132 012706 001100 MOV #STACK, SP ::SETUP THE STACK POINTER 
2363 ss INITIALIZE A FEW VECTORS ! 
2364 004136 012737 034362 000034 NOV #STRAP - TRAP VECTOR FOR TRAP CALLS 
2365 OO4144 912737 O00340 O00036 MOV #340 ab tReevicse g,tivet 
2366 O041S2 O10737 O34204 O00024 MOV SP POH FAILURE VECTOR 
2367 OO4160 Ole737 000340 000026 MOV #340 ahi Cex iteveL 
e368 $3 iS1ZE FOR 8 HAR HARDWARE Si cite R. ERS iE 107 FOUND OR IT IS 
2370 OO4166 O1 000004 MOV sete ae) of RROR VECTOR 
2371 004172 012737 226 MOV #64S i ERR He RROR VECTOR 
2372 OO4200 Ole737 177570 O01140 MOV #0S :SETUP FOR A HARDWARE SWICH REGISTER 
2373 004208 Ole737 177570 O01142 MOV wOpIse> DISPLAY *:AND A HARDWARE DISPLAY REGISTER 
2374 OO04214 777 177777 «174716 CMP 8-1, aSWR 33 TRY TO REFERENCE HARDWARE SiR 
e375 004, 001012 BNE 665 3 3BR BNCH af wi TIMEOUT TREP OCCURRED 
2377 004224 O00403 BR 6S$ {BRANCH IF NO TIMEOUT 
2378 OO4226 012716 o04234 64S: MOV #65$, (SP) *:SET UP FOR TRAP RETURN 
2379 004232 RTI 
2380 OO04234 012737 000176 O01140 65$: MOV ;;POINT TO SOFTWARE SWR 
2381 OO442 012737 000174 O0O114e2 MOV SisrreG,0 DISPLAY 
e38e 004250 012627 OO00004 66S: MOV P)+,d#ERRVEC ;;RESTORE ERROR VECTOR 
2384 004254 013701 023344 MOV RKVE GET VECTOR STORAGE ADDRESS 
Sace beuses BISeit | pna3a0 NOY i SL ORO, ET METH INTERRUET HNOLR AOR 
2387 O04 004737 034060 C,$SIZE 
2388 O04274 013700 O34202 MOV SLSTAD, RO ;GET LAST ADDRESS VALUE 
5350 povsos seeraa boson Oe By SEGLOLOGUFPT FT BUTE U CUErER POINTER 
| e331 Oouste 166700 O41416 SUB NDLOC, RO i SUBTRACT FOR PROGRAM CODE 
2393 004320 Boes00 ; ROR RO oR sDIVIDE BY TWO FOR TWO BUFFERS 
53¢¢ 004326 feed arate 001710 MOV sENOLOC, IBUFPT :SET THE INPUT BUFFER POINTER 
23% 334 060037 001710 RD UFPT sar THE MIDDLE OF BUFFER AREA 
ee eM eee mann wo 
2400 904350 010037 001700 MOV RO, MAXWDS SET MAX WORD VALUE - 
2401 004354 004737 032156 JSR PC’ STKINT INITIALIZE KEYBOARD 
| 2402 004360 104400 002316 TYPE PROGID ;TYPE PROGRAM NAME 
2403 004364 O10O46 MOV RO, -(SP) 
2404 004366 104401 TYPOC TYPE MAX WORDS 
2405 004370 104400 003315 YPE 1 TOBFSZ ;LABEL IT 
2406 374 OOSO46 CLR ~(SP) ;PUT NEW PS ON STACK 
2407 376 01274 OO44O4 MOV #67$,-(SP) eur NEW PC ON STACK 
| e108 dowiide ooooce2 a RTI ::POP NEW PC AND PS 
e410 bowHOd 105737 001672 " -1STB ~—s HPVLD sTEST IF F HELP FILE VALID 
11 10 001402 BEQ COMLEV ON’T PRINT HELP QUESTION 
| e412 OO4412 104400 O02405 ' L i P T 
| aia : TTL COMMAND LEVEL ROUTINE Ma Bodh, 
| 
SE Sea as 












































| 
| 
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002443 


004704 


oo00c0 
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;*THIS ROUTINE gt ne A weet Qa yy FROM THE COSOLE AND DECODES 
;*IT TO DETERMINE IMMEDIATE, DEFERRED, OR AN UNDEFINED. 
;*1F THE COMMAND I S DEFERRED. ir CALL THE DEFERRED COMMAND peo IT 


;#(DCMDPR). IF THE COMMAN IMMEDIATE THE 2ND WORD OF T' 
:*INTERACTIVE COMMAND Me (ICTBL) IS THE ADDRESS OF A SPETIAL 
; #ROUTINE FOR THAT COMMAN 


:* RETURN TO COMLEV IS 
te NORMAL - TST  (R4)+ 

i RTS sR 

# ERROR - MOY (RM), RH 
iiiitiiiiitiiiittritiiittttiritiitiittiittiitttitit titi ttt ttt 


COMLEV: TYPE » STAR ; TYPE COMMAND LEVEL DESIGNATOR 
RDLIN ne LINE 


DL ; READ 

MOV (SP)+,.R1 MOVE ADDR OF COMMAND RI 

ISR R4, ICDEC ;CALL INVER TIVE COMMAND DECODE 

2s RETURN got TO ERROR 

TST (R2)+ ? BUMP TO PARAM WO 

TST (Re) TEST PARAM RORDO 

BPL 1$ IF DEFERRED BRANCH. ELSE 

TST =(R2) “DEC TO ADDRESS 

JSR RY, a(R2) BR I BRED SAVE COMMAND 
ROUTINE WHOSE ADDRESS WAS 
;PLACED IN Re BY ICDEC. 

3$ ‘ERROR RETURN 

BR 4g RETURN TO COMMAND 


LEVEL 
1$: JSR R4, DCMDPR : JUMP TO DEFERRED CMD PROCESSOR 


35 :E TURN 
4g: CLRB -~ HPVLD CLEAR HELP VALID SWITCH 
BR COMLEV sR TURN TO COMMAND LEVEL. 
2S: TYPE BADCOM YPE BAD COMMAND MESSAGE 
3S: TYPE  ,S$TTYIN 18 LINE IN ERR 
TYPE SQUES FOLLOWED BY OUEST TON MARK 
BR SomMLEV *RETURN TO COMMAND LEVEL 


ATT DEFERRED COMMANDS INPUT PROCESSER nee 
 SBTT RRED COMMANDS INPUT PROCESSER 
¥ENTRY: SR PC, DCMDPR 
ITH Ri POINTING TO INPUT CMND. 
: RETURN: NORMAL TST (R4)+ 
it ERROR MOV (R4),R4 
RT R 


4 

i STHIS ROUTINE WIL PLACE THE ait y thy 

;#INTO THE SOURCE FILE. THE SOURCE FILE EMP 
;*(SFEMP) FLAG IS CHECKED AND IF SET THE SOU URCE 
;*#FILE IS CLEARED AND COUNTERS & POINTER INITIALIZED. 
;#A LINE NUMBER IS PREFIXED TO THE peretre 

: ¥COMMAND AND STORED WITH 

S*LINE TERMINATOR cNULL) IS KEPT WITH THE COMMAND. 
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001246 
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;*1000 WORDS ARE ALLOCATED FOR SOURCE FILE AND 

:*IS NOT ALLOWED TO OVERFLOW. WHEN THIS ROUTINE IS 
ote. Rl MUST BE POINTING TO THE INPUT DEFERRED 
RT rttiititiiiiiiiititiiiiiittttitititititittitiitiititiicit ices. 


ere MOV R3,-(SP) 
MOV RS'-(SP) 
TSTB  SFEMP 
BEQ 2s 
CLRB tN CNT 
MOV XWDS, R3 
MOV TEUPPT SFPTR 
MOV IBUFPT, RS 
SUB 

1$: CLR teats 
DEC R3 
BNE 1$ 
CLRB  SFEMP 

23: MOV SFPTR,RS 
MOV HOXHDS TEMP! 
SUB EMPI 
ADD tHUePS TEMP 
CMP RS, TEMPL 
BLOoS )=Ss«38" 
TYPE NOROOM 
MOV (SP)+,RS 
MOV (5P)+'R3 
MOV 4) ,R 
BR 

3S: INCB NCNT 
MOVB LNT, (RS)+ 

4g: MOVB +? (RS) 
TSTB (Ress 
BNE 4g 
MOV RS, SFPTR 
MOV (SP)+, 
MOV (5P)+°R3 
TST (R4)+ 

cS: RTS 





;STORE R3 
STORE RS 

:TEST SOURCE FILE EMPTY 
‘BR IF NOT EMPTY, APPEND TO SOURCE 
?CLEAR LINE COUNTER 

:SET BUFFERSIZE 


-;SETUP SOURCE FILE POINTER 


;SET F TO CLEAR SOURCE FILE. 
START CLEAR I WORD EARLY 
:CLEAR TO ZEROS 


:AN 
;LOOP_UNTIL INPUT BUFFER CLEARED 
CLEAR SOURCE FILE EMPTY 


;SET UP_RS AS SOURCE FILE PTR 


: STORE 
‘ALLOW FOR THIS LINE 
;COMPUTE LAST ADDR OF SF 
jTEST FOR SUFFICIENT ROOM FOR 
sTHIS LINE. BR IF YE 
‘TYPE NO ROOM MESSAGE 
;RESTORE RS 
*RESTORE R3 
!SET UP ERROR RETURN 
360 10 EXIT 


;BUMP LINE COUNT 

PUT LINE COUNT IN SOURCE 

;MOVE INPUT CMP TO SOURCE 

TEST IF LAST CHAR MOVED IS NULL 


F NOT YE 
STORE OFF _NEW SOURCE FILE PTR 
;RESTORE RS 

;RESTORE R3 

;SET UP ye RETURN 

;RETURN TO CALLER 


s RELLEAAARL AE LK LA ALLL AE RARAAAA KAKA EERE LALA RARKLA REL ALE RELA RELEE 


t ¢RETURN 
* 


‘SBT SEARCH BYTE STRING FOR COMMA OR NULL 
; *ENTRY 


JSR 
ii Rl POINTS C3 PIRST CHAR OF STRING 


RTS PC | 
3% WITH Rl NOW POINTING TO 4 CHARACTER 
i AFTER A COMMA OR TO THE N 


TE ELiat aur deauiieismaemeenmemeemmmmmmmmmemeen 


ida 


CONNA: “AscrI 4,/ 











RKS11/RKO& USER DEFINED TEST MACY11 27(732)_ O3-NOV-76 22: 40 PAGE 66 
DZRERB. CNB SEARCH BYTE STRING FOR COMMA OR NULL 


2527 O046E6 SBSCN: 
2528 OO4666 121137 OO4SEY 1S: CMPB = (RL) , NULL TEST FOR NULL 

e529 004672 001403 BEQ 2 :BR IF Y 

2530 OO4S74 122137 OO4eES CMPB =s-« (R11) +, COMMA : TEST oF COMMA 

2531 p04709 go13"¢ BNE 1$ *LOOP_IF NOT 

2532 0047 og20 23: RTS PC : RETURN 

2534 © SLKRRKLEAEKL ASE LRE ARLHS LH AEKLARRKS EL AL LAA SERA LKEA ERE LRA ELK ALKFSL SRE 
2535 ‘ABTTL INTERACTIVE COMMAND DECODE ROUTINE 

2536 ; XENTRY: ae 

2538 x Atta RI CONTAINING THE ADDRESS OF THE COMMAND LINE 
2539 : €RETURN: MOV (R4),R4 

2540 x RTS RY ERROR RETURN 

2541 x TST (R4)+ 

ode i RTS RY NORMAL RETURN 

2suy SSMHEN RETURNED R2 WILL POINT TO THE SECOND WORD OF 

2545 j #THE MATCHING TABLE ENTRY. 

2548 t STHIS ROUTINE SEARCHES THE TABLE OF INTERACTIVE 

354g COMMANDS, LOOKING FOR A MATCH FOR THE COMMAND 

2550 S¥POINTED tO BY Y Rl. IF NO MATCH THE ROUTINE RETURNS 


2551 ;*BACK TO RETURN 1. IF MATCH OCCURS RETU ry IS TO RETURN é. 
esse :#R2 POINTS TO SECOND WORD OF TABLE ENTRY A WHICH IS 


+ * ISR RTE 
2582 3% Rl POINTS 4 6F COMMAND LINE R2 POINTS TO 2ND WORD 


2553 *#ADDRESS OF INTERACTIVE COMMAND PROCESO 
2554 ?¥SUBROUTINE. THE CALLING ROUTINE MU 
2555 j#o TORE R2 BEFORE CALLING ICDEC 
Sees ¢ RELE RELA AEH ALA RAEA LLL AER ELE LER EE REL EEA L ER EERE RRR E RE RE ERE LE REER 
2558 004704 010346 ionas MOV R3,-(SP STORE R3 
2559 004706 112137 001702 MOVB = (RL) + TEMP! :MOVE COMMAND INTO R3 
2560 OO4712 111137 001703 MOVE (R1),fEMP14+1 § :T0 INSURE WORD 
2561 004716 013703 001702 MOV TEMPL RB *ALIGNMENT FOR EASE OF COMPARE 
004722 005301 DEC Ri :RESTORE R1 TO BEGINNING OF CMD 
2563 004724 012702 o03544 MOV #ICTBL,R2 “ADDRESS OF TABLE INTO R2 
2564 004730 020312 1S: CMP R3, (Red ;TEST TABLE ENTRY AGAINST 
2565 O04732 001410 BEQ ‘ENTERED COMMAND. BR IF HIT 
004734 121237 o02443 CMPB  - (R2),, STAR *TEST IF END OF TABLE. 
2567 OO4740 001403 BEQ 2 IF YES DO ERROR RETURN 
004742 O62702 oO00010 ADD #10,R2 BUN Re TO NEXT TABLE ENTRY 
2569 O04746 000770 BR 1$ LOOP - TEST NEXT ENTRY 
2570 O04750 011404 23: MOV (R4),R4 ice UP ERROR 
2571 004752 oo0402 BR 4g se TO EXIT 
2572 GO4754 005724 3S: TST (R4)+ UP FOR NO ERROR RETURN 
e573 004756 005722 TST (Re)+ ; BUMP Re T0 SECOND WORD 
| 9575 004760 012603 4§: MOV (SP)+,R3 PRESTORE RQ 
e576 004762 o00204 RTS RY "RETURN TO CALLER 
2578 : LEK LHH RE REE KE RFE LR L SL LAA LAE LAKE KEELE RM KEELE AE ELA SEER ER EREEEE 
2579 *SBTTL EDIT ADD LINE ROUTINE 
2580 : EN 
| 2581 : 
| 
| 
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LINE ROUTINE 


001246 


001246 


10$: 


118: 


les: 


138: 
148: 


20s: 
21$: 
2e$: 
233: 
ess: 
30S: 
3S$: 
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;ROUTINE TO DETERMINE HOW FAR TO os SFPTR TO ACCOMMODATE 
NEW LINE 8 MOVE OLD SOURCE TO MAKE ROOM 


INC RS 

TSTB (Rl)+ 
BNE 10$ 

INC RS 

MOV RS. SFPTR 
MOV (SP) +,R1 
MOVB  =(RO)'-(RS) 
8 118 

oe 1(RO),R3 
BNE 118 

sc, RO 

MOV RO. RS 
MOVB (RL). (RO)4 
TSTB (RI) 
BNE 12s 

INC R3 

TSTB ss (RS) + 
BMP ORS SFPTR 
BEQ 30$ 

MOVB 3, (RS)+ 
BR 13 

TYPE BADDEC 
GR ess 

TYPE IVDEDT 
BR ess 

TYPE IVDADD 
Br ess 

YPE IVDLN 
MOV tR4) RY 
BR 35$ 
TST (RY)+ 
MOV (SP)4,RS 
MOV (SP)+, 
MOV (3P)+,Re 
MOV (SP)+'RI 
MOV (SP)+,RO 
RTS RY 


T DELETE LI 


RTS a, 
ROUTINE WILL REMOVE THE COMMAND 
NUMBER FROM THE SOURCE FILE. 


sSCAN INPUT COMMAND LOOK FOR 
‘NULL. ADD 1 TO RS FOR LINE 
: A iRowMULL CHAR 


OP 
i Test IF NNEXt 0 LAST CHAR MOVED IS 
*LINE NUMBER TO BE REPLACED 


GET RO Ore Rut T LINE NUM 
ONS COMMAND INTO SF 
TEST IF CHAR MOVED IS NULL 
*NOT DONE STORING CMND, LOOP 
*ADD ONE TO LINE p 
TEST IF NULL 

?GO UNTIL NULL 

°SF RESEQUENCED, EXIT TEST 
‘BR IF YES Exit 

?MOVE IN NEW LINE NUMBER 
‘BRANCH TO NEXT LINE 


; TYPE BAD NUMBER ENTERED 
;TYPE INVALID EDIT 

; TYPE INVALID NEW COMMAND 
‘ERROR RETURN LINE NUMBER 


;3POP STACK INTO RS 
STACK INTO R3 


Sr "EDIT OLE LIN RUIN 


DESIGNATED BY THE 
THE REMAINING 
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BoBeae ARS Pete SELETE LINE ROUTINE 


cS ; COMMANDS ARE MOVED UP IN THE F AND RENUMBERED. 

36 :#THE FOLLOWING SEQUENCE OF OPERATIONS IS PERFORMED: 
2637 #1. RETRIEVE LINE NUMBER FROM INPUT COMMAND 

38 : #2. “SNVERT_LN FROM ASCII TO BINARY 

or) #3. CHECK IF LN EXISTS IN SF 
3700 #4. DELETE COMMAND FROM SF BY MOVING REST OF 
eis #5. DECREMENT LINE NUMBERS WHILE MOVING COMMANDS. 

7 #5. ADJUST AND STORE POINTERS AN NEW LINE 
2704 ;% COUNT. 
ects ty ROUTINES CALLED 

3% 
5208 :% ee iy 
2708 Ar N 
ay se STAAL LEREAASFSEFLAASSLALS FLARE SSERALALALLALALASAALEREESELAAAAES 
2711 O0S266 EDRTE: 
e7l2 O0S266 O10046 MOV RO, -(SP) ;;PUSH RO ON STACK 
2713 005270 010146 MOV R1;-(5P) PUSH R1 ON STACK 
2714 005272 010246 MOV Re, -(5P) *:PUSH Re ON STACK 
2715 005274 010346 MOV R3,-(5P) ::PUSH R3 ON STACK 
2716 005276 010546 MOV RS’ (SP) *:PUSH RS ON STACK 
2717 005300 004737 OO04bEE JSR PC: SBSCN :BUMP RI TO NEXT PARAM (LN) 
2718 O0S304 105711 TSTeB 3=—s cL) *CHECK IF NULL 
2719 005306 001455 BEQ 20S ‘BR IF YES (ERROR) 
2720 005310 010146 MOV R1,-(SP) ;ADDRESS OF LN ON STACK 
27e1 O053l2 O04 031102 JSR PC’ DECBIN *DECODE LN TO BINARY 
cree aus Gee ae LIS peer 
| on tt | . 

5553 D0S3e2 1] 001243 | MOVB (Rent! Re :GE RUNBER OF LAST LINE 
2725 005326 O42702 177400 BIC #177400, R2 *CLEAR UPPER BITS 
orb 005332 120203 CMPB 3 sR2 RB :TEST IF VALID LINE NUMBER 
27; 103450 BLO 22g *NO = INT ERROR 
2728 005326 013709 001710 MOV IBUFPT RO :GET RODRESS OF START OF SF 
2729 005342 121003 1S: CMPB =: (RO) ,R3 sTEST IF THIS IS LINE TO BE 
Soe) DOSSME DenGS? | ODLZHE eee OD cepre DELETED. A ECK TF STILL IN SF 
2732 005352 rashes BHI ;BR_IF_NO (ERROR) 
2733 005254 105720 2s: TSTB Ss CRO) + TEST FOR NULL 
2734 Dos 56 00137 BNE 2 *BR IF NOT NULL, CHECK NEXT 
2735 BR 1$ *FOUND NULL, BR TO TEST FOR LN 
He tGEEN FOUND. NOM FIND THE 
oe > START ou RExt LINE. DEC 
2739 : THAT LINE NUMBER AND 
ero :MOVE IT TO OVERLAY OLD CMD. 
2742 005362 010005 38: MOV RO,RS ;STORE RO FOR REFERENCE 
2743 005364 105720 4§; TSTB 3s (RO) + *LOOK FOR NEXT NULL 
2744 005366 001376 BNE 45 *BR IF NOT. CHECK NEXT CHAR 
2745 605370 013702 o01246 MOV SFPTR,Re sGET FILE PTR 
2746 o20002 S$: CMP RO, Re TEST IF END OF SF 
2747 005376 001404 BEQ 7§ *BR IF YES, END OF MOVE 
2748 905400 105310 DEC (RO) ‘DEC THAT LN 
2749 O0S4H02 112025 6$: MOV, (RO)+, (RS)+ "MOVE BYTE TO OVERLAY LINE 
2750 095404 001773 BEQ S$ :TEST IF BYTE MOVED WAS MOVE 





2781 : #ENTRY: JSR R4.PTRTE ON PLATE 
*#WITH R1 POINTING TO COMMAND (PRINT LINE) 
j #RE TURN: RT R4 
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DoReRS ChE Pere SELETE LINE ne : “ 
275 sEND OF THAT LINE, CHECK IF_MORE 
5753 OSH 000775 BR bs IMOVE NEXT CHAR Of THIS LINE 
ect 005410 010537 o01246 7S: MOV RS, SFPTR : STORE NEW SF POINTER 
2 095414 105337 901243 DECB = LNCNT :DEC TOTAL LINE COUNT 
601003 BNE $ ‘SKIP IF NOT ZERO 
1 oo00ci 001234 BISB #1,SFEMP sELSE SET SOURCE EMPTY FLAG 
2757 005430 105025 8S: CLRB ss (R84 “CLEAR REST OF pounce FILE 
2758 32 020500 € RS, RO *CHECK IF FINISHED 
£753 34 001375 BNE 8 LOOP IF NOT DONE 
2761 O0S436 005724 TST (R4)+ ;SET UP NORMAL RETURN 
2762 OOSH4O 00411 BR 305 :GO TO NORMAL EXIT 
oos442 104400 oo2s40 20$: TYPE IVDEDT ‘TYPE INVALID EDIT MESSAGE 
2764 O05446 O004 BR 2 
posted 104400 002520 218: TYPE sBR00EC ;TYPE BAD DECIMAL MESSAGE 
2767 005456 104400 002603 225: TYPE IVOLN s TYPE INVALID LINE NUMBER MESSAGE 
2768 005462 011404 258: MOV tR4), RY ‘SET UP ERROR RETURN 
5753 Poeue 1 83 MOV (SP)+. RS sPOP STACK INTO 
5359 ppeuee pt MOV (5P)+'R3 tt pop STACK INTO F3 
2772 005470 Ol2602 MOV (SP)+;R2 33POP STACK 
2773 O0S47e 012601 MOV (SP)+'R *:POP STACK to fe 
2774 OOSH74 012600 MOV (SP)+'R ::POP STACK INTO RO 
pe 005476 900204 RTS RY “RETURN TO CALLER 
| 2777 
e773 . thd 11+ itt 1 leeeaaalleieeielealiebeleeiebeleael 
| 2780 -SBTTL PRINT LINE ROUTI 
| 
j 


R4t2 «ERROR er “ 
tSTHIS tee WiLL PRINT A SINGLE LINE FROM THE 
OURCE FILE. A_LINE NUMBER IVEN RTH THE PRINT 


2782 
2783 
2784 
| 2785 
| 2786 +#S IF ISG 
| 2787 j LINE (PL) REQUEST THE ROUTINE PRINTS THE SPECIFIED 
| 2788 IF LN IS NOT SUPPLIED THE LAST COMMAND 
e783 ENTERED IS PRINTED. 
| 2731 ROUTINES CALLED 
2792 + TYPDS 
| 2793 3% TYPE 
erat is DECBIN 
| o7% rriiiitiitiitititiiitiitiitititiititititittittiititittitttt iis} 
| 00550 1 — RO, -(SP) RO ON STACK 
on00 b0S50e stats HOV Ri,-(5P) sy 1 Ri ON STACK 
| 280 po5604 010346 MOV R3, -(SP) *:PUSH R3 ON STACK 
5B0e 010546 MOV RS; -(SP *:PUSH RS ON STACK 
' 803 005510 105737 001234 TSTB ss SFEMP TEST IF ANY SOURCE CODE 
e604 poset 1 "BRANCH IF NO SOURCE 
16 OO4E6E S SBSCN "BUMP R1 TO NEXT PARAM 
| 2806 005522 105711 TSTB 8) ;TEST IF NULL 
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ROUTINE ; 


BEQ 4$ 

MOV R1,-(SP) 

JSR PC, DECBIN 
MOV (SP)+,R3 


MOVB —- LNCNT_RS 
SIC #177400, RS 
CMP R3,RS 

BHI 21 


1S: CMPB ss (RO) , RB 


BEQ 33 
CNPB ss (RO) , RS 
BHI 21$ 

2s: TSTB = (RO) + 
BNE 23 
BR 1$ 

4§ MOV SFPTR,RO 
CMPB = = (RO), - (RO) 

ss TSTB = - (RO) 
BNE c$ 
TSTB (RO) 

38 CLR -(SP) 
MOVE (RO)+, (SP) 
TYPDS 
TYPE EQSGN 
MOV RO, 6S 
TYPE 

&$ . WORD 
TYPE SCRLF 
TST {tR4) 
BR 30$ 

20S YPE C 
BR ess 

218: TYPE siVDLN 
BR g 

225: TYPE NOSRC 

2S$: MOV tR4),R4 

30S: 
MOV (SP)+,R5 
MOV (5P)+°R3 
MOV (SP)+:Ri 
my (SP)+,R0 
RTS RY 


‘bp 
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;NO LN PRINT ae MND © 
sCONVERT ASC ie 


: ERROR RETURN 

STORE CONVERTED LN 

sGET STORED LIN COUNT 
CLEAR UPPER 

tTEST IF VALID TNE NUMBER 

er begat esr 

:GET ADORE T OF SF 

His 1s STINE TO BE 
YES F FOUND LN 


NVALID LN) 


EST NEXT CHAR 
IF THIS IS LN 


mp etre 


oer 
segaaw 
ag a 


ZF 


y 
T 
CK - 


& 
: 


L 
; TYPE CARIAGE RETURN 
;SET UP NO ERROR RETURN 


;TYPE BAD DECIMAL MESSAGE 
;TYPE INVALID LINE NUMBER 


; TYPE SO SOURCE 1 a 
;SET UP ERROR RETURN 


3 3POP STACK INTO RS 

;POP STACK INTO R3 
: tPOP STACK INTO R1 
tRESURK STACK INTO RO 


as teRInt egy ROUTIng nee eeeeeesssaaseeeeenensaaaaasee 


: KENTRY: JSR RTE 
*#WITH RL POINTING TO CORMAND (PRINT TEST) 
j#RET URN: RTS RY ERROR RETU 


RTS R4+2 RMAL RETURN 
tSTHIS ROUTINE WILL PRINT THE ENTIRE CONTENTS 


;*OF THE SOURCE FILE. 
;*ROUTINES CALLED 
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3% TYPE 
Sees : 6 OPS 
bee 33 KELREKAARA ALA FHLSSKSRKRAS LAL EKA EE SERA LEELA ELAREA AKA ERFLESLELESESS 
2867 005700 PTRTE: 
fet ere HONE my Bats} u A Sra 
28 nian 1 001234 TSTB © SFEMP Pus IF ANY SOURCE 
2871 005710 001025 BNE 20$ :IF NONE, BRANCH EXIT 
2872 005712 013700 001710 MOV IBUFPT, RO GET START OF SF 
73 noe? 001246 MOV SFPTR,R3 GET SOURC FILE PTR 
74 38: CLR =(SP) *CLEAR NEXT STACK WORD 
112016 OVB  (RO)+, (SP) ;PUT LINE NUM ON STACK 
cae oreo if 002516 TPES EQSGN i Yee oy Ay SIGN 
2878 ppes 3a Aesas7 005742 MOV RO, 1$ ia rue ONE. ADDRESS 
2878 005740 104400 * TYPE 
Seat Boe eds air 901171 TYPE SCRLF TYRE CARRIAGE RETURN 
2882 005750 105720 2s: TSTB =._«CROD¢ iTEST OR NULL 
Sees ppeved ponies ae ORS Fhot Cope ONT, tu 
1 C 0,R3 ITEST IF LAST LINE PRINTED 
2885 005756 001361 :N L 
o286 o05 760 poses TST (R4)+ *SET NORMAL RETURN 
BR ess G0 TO NORMAL EXIT 
2888 005764 104400 003015 20$: TYPE NOSRC *TYPE NO SOURCE 
e889 005770 011404 a MOV tR4), RY *SET ERROR RETURN 
2891 905772 012603 MOV (SP)+,R3 5;POP STACK INTO R3 
2892 005774 012600 MOV (SP)+°RO : jpop STACK INTO RO 
| 2893 005776 O00204 RTS RY ?RE 
2es4 
Seep 
| 2897 3 ok at aed AMAR ee a eee 
| 2398 -SBTTL RMAT SELECT 
| 2399 HE JSR RORY FTRTE 
| 2300 i WITH Rl POINTING TO COMMAND 
| 2902 :#RETURN: RTS RY ERROR RETURN 
| 2303 i RTS R442 NO ERROR RETURN 
| 2905 tATHIS ROUTINE WILL SELECT THE FORMAT (24 OR 26,0CTAL) THAT IS TO 
| 2306 *#BE USED FOR THE SUBSYST " COMMANDS. ALL COMMANDS WILL BE EXECUTED 
| 2907 WITH THIS FORMAT UNTIL IT IS CHANGED. 
| 2308 SRELELELEERERERERKER REL KS KE RGAE ER EKAESRESERKAESRERERESE SE LRREEEYE 
| 2909 996000 004737 O04666 ttrte: JSR PC, SBSCN ;BUMP TO NEXT PARAMETER 
| 2910 105711 TSTB.) ss CRI) *TEST IF NULL 
| p911 006006 001417 BEQ 2s *NO CHANGE - EXIT 
| 912 006010 121127 000077 CMPB ss (RL), #”? jTEST I QUESTION 
| $813 006014 00105 BNE SKIP PR 
| 2914 O06016 O1 001212 MOV ORMAT, -(SP) He Ger FORMAT STORED 
| 915 o06022 104401 TYPOC : PRINT 
| @916 O06024 104400 001171 TYPE SCRLF 
| 2917 006030 O00406 BR os G0 TO EXIT 
2918 006032 010146 1S: MOV R1,-(SP) "PUT VALUE FOR CONVERSION ON STACK 
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3 
Sokal stot statot sata 
DRERSLZRG SURLZS 


cs es 
Se 
535s 006060 
2328 
1 
| 
| 
| 


r 


pores 
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SELECT ROUTINE 
039746 
0012i2 


O02E46 








JSR PC, OCTBIN 


20$ sERROR RETURN 
MOV (SP)+,FORMAT § :STORE NEW f FORMAT 
2s: Ist (Ra)4 GOOD RETU 
20$: MOV (R4) RY :SET ERROR RETURN 
TYPE paddct ;PRINT ERROR MESSAGE 
30$: RTS Ry * RETURN 


Sth tuted Duet ADE ne ee 
‘Sart TIMEOUT SHANGE ROU 


¥ENTRY: ORTE 
: With Rl POINTING TO COMMAND 
; #RETURN RTS RY ERROR RETURN 

i RTS R4+2 NO ERROR RETURN 


SATHIS ROUTINE WILL CHANGE THE TIME OUT DELAY FOR SUBSYSTEM OPERATIONS. 
5 SE AEE HEHE SSE AE SEES EEE AEE SEE ESE HEE SEE SE EEE SE EEE EE EEE EE Ee EE 


TE: JSR PC, SBSCN ;BUMP TO PARAMETER 
TSTB Ss (RI) ; TEST IF 
BEQ 1$ “EXIT - NO TIME OUT CHANGE 
CMPB sé), #”? ; TEST IF QUESTION 
BNE "NO = SKIP TYPE 
MOV TOVAL, -(SP) GET TOVAL TO STACK 
TYPDS TYPE IT 
TYPE j SORLF 
23: NOV Ri,-(SP) ;GET VALUE FOR CONVERSION 
JSR PC; DECBIN “CONVERT VALUE TO BINAR 
20S ‘ERROR RETURN 
MOV (SP)+, TOVAL :STO VALUE 
1S: St Ra) :SET TURN 
20$: MOV (R4) RY :SET ERROR RETURN 
TYPE BADDEC TYPE MESSAGE 
RY RETURN 


RT 
i Sbesastad ena tteneeeseageaaaanananesbstreneenesessaaay cneee 
“SBrTL TL DR VE NUMBER BE CHANGE ROUTINE 
i WITH Rl POINTING TO THE COMMAND FIELD IF DN 
COMMAND OR SUBSYSTEM COMMAND PARAMETER IF 
anon Beetgre FUNCTION COMMAND 
MOV (R4) , RA 
NO ERROR RETURN: TST (R4)+ 
RTS RY 


i STHIS ROUTINE CHANGES THE "DRIVE" PARAMETER BY STORING 

j#IN IT THE VALUE SPECIFIED BY THE “DN” OR “SF™ 
COMMANDS NOTE Ri MUST POINT TO THE COMMAND 

j AFIELD (DN) OR THE SUBSYSTEM COMMAND PARAMETER (SF). 


SEROUTINES CALLED 
: #OCTBIN 
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2975 ; #SBSCN 
2976 
5399 Stay 010146 tee MOV R1,-(SP) -PUSH R1_ ON STACK 
Sars elie Sours coves a a ATO Ka 
e381 006154 901425 BEQ 1$ 0 DRIVE CHANGE EX XIT 
53a posits Aaidoe OOO” eg est Up eyPES 
2384 ODb 164 013746 001176 NOV DRIVE, -(SP) GET DRIVE NUM TO STACK 
2986 poet se ea 001171 TYPE SCRLF iT 
2987 006176 O00414 BR z 
2988 006200 121127 o000S4 4g: CMPB ss (R11), #”, sTEST IF NULL ENTR 
2 a er A 
2991 006210 O04? 3” 030746 JSR PC, OCTBIN :COWERT TO, BINARY 
5335 5 boosie Brees 7 901176 MOV (SP) DRIVE *STORE NEW DRIVE NUMBER 
2994 06222 Oeebe? 000007 cp (SP SP)4, #7 ag rte bad IF VALID RIVE 
S3ee BOESSB Apeoon is: fet thurs CFF NoRMAL RETURN 
2997 O06232 OO00406 BR 30$ 
2298 Oobe34 104409 002646 2S: TYPE sBR00CT —_ INVALID OCTAL NUMBER 
S300 33 p06242 tart 003161 3$: TYPE BADDRV PRINT MESSAGE 
3001 O0624% 011404 o38: MOV tR4),R4 *SET ERROR RETURN 
ss ppesen eSep 012601 “MOV (SP)+,R1 ;:POP STACK INTO R1 
3004 O06252 o00204 RTS RY :RETUR 
3006 g SEBTTL "ITERATION COUNT CHANGE ROUTINE 
308 JSR R4. ICR P 
eat ‘eat RTS with BE OTN OA BeTORA TE COMMAND 
201 is RTS R442 NO ERROR RETURN 
3013 is ROUTINES CALLED: 
3014 * DECBIN 
3015 2 x SBSCN 
=i8 $3 KREEKERAREREKALALE LRA AA RALA ELA ALARA RELL EA AAA RAKSHA SAA RELA ERA RAKE 
3018 006254 004737 OD4bEb ICRTE: JSR PC, SBSCN ;BUMP R1 TO NEXT PARAM (IC) 
3019 006260 105711 TSTB) sR) TEST FOR NULL 
3020 O06262 001417 BEQ 1$ IF NULL, EXIT. NO CHANGE IC 
| Be ig oor ge gute Lod 
| 3023 01376 001232 HOY : ITCNT, -(SP) GET ITERATION CNT TO STACK 
| 3052 BbeSo8 tbuupo oou7i TYPE. SCRLF ; 
3026 006304 O00405 BR 1§ 
3027 006306 010146 2s: MOV R1,-(SP) sADDRESS OF PARAM ON STACK 
3028 006319 004737 031102 JSR PC, DECBIN SCONVERT fT. 0 BINARY 
| 2030 006316 012637 001232 MOV (SP)+, ITCNT ‘STORE ITERATION COUNT 
Pao n> eee : 
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ITERATION COUNT CHANGE ROUTINE 








3031 oO0&322 005724 1S: TST (R4)+ SET UP NORMAL RETURN 
006324 000403 BR 30$ 
3033 006326 011404 7 20$: MOV (R4) RY $7 UP ERROR RETURN 
3034 pbs 30 44400 002520 TYPE aBAODEC Type ah DECIMAL MESSAGE 
3035 4 30$: RTS 
3037 © SLKLSERLKARREA KAKA KA SLE ERA AE RE RRLKRE AAR LRA LA LALLA KARA AALFERAKEE 
3038 sSBTTL SPECIAL DATA PATTERN ROUTINE 
3040 + WITH RI BOINTING TO THE INPUT COMMAND 
3041 : #RETURN: RTS RY ERROR RETURN 
ove £ RTS R4+2 NO ERROR ROUTINE 





+ ATHIS ROUTINE WILL ACCEPT 32 WORDS OR LESS AND STORE 
S#THEN WITH THE IDENTIFIER X,Y, OR Z AS CHOSEN BY 
AMETER 1. INPUT DATA a.niist fe fy Scat ano In 
| H THE UPPER BIT A 0). 










eeaeh 
ae 
te 
a 


; MAY L 

eal AFFECTING THE hae ren BUT IT MUST OCCUR 

: :#0N A WORD BOUNDARY. (IF NOT ON WORD BOUNDAR Y THE 
REMAINDER OF THE WORD IS TRO FILLED.) THE 

3 #INPUT DATA IS Mw ade, gITH CARRIAGE RETURN 
;#AT THE BEGINNING OF A LINE. pe THAN 32 
;¥WORDS ENTERED THE REMAINDE NOER WORDS ARE 


i 







3044 

3046 

304 

3050 

3052 

3053 

3054 

3055 j #ZERO FILLED. 

3056 ROUTINES CALLED: 

3057 ie OCTBIN 

30593 jzeenennneesebeesssssegsensseensnnenszennssnsnensenennaenesenenes 
3060 006336 909000 osn000 90000 : .WORD 0,0,0, 

3062 Spee 052737 100000 001702 EBRTE: BIS #81715, TEMP! - ;SET FLAG FOR EDIT BUFFER 
ea oe Oosee 001702 DPRTE: CLR TEMP :CLEAR EDIT BUFFER FLAG 

3066 006362 010046 ” MOV RO,-(SP) ;;PUSH RO ON STAC 

3067 006364 010146 *=(SP) PUSH R1 ON STACK 

2068 006365 010246 MOV Re, -(SP) *:PUSH R2 ON STAC 

3069 006370 010346 MOV R3,-(SP) PUSH R3 ON STAC 

3070 006372 O10SH6 MOV *=(SP) jsPUSH RS ON STACK 

3071 006374 O01 MOV RY; -(5P) lowe 10" he ACK 

5 eee * Me eat os fet (RI) ~ * TEST BRAN re sda cnet 
3074 O06404 O01540 BEQ 205 :CANNOT ACCEPT NULL, BRANCH TO ERROR 
ee O06406 121127 000130 CMPB ss (RL), #°X sTEST PATTERN NAME F 

3077 OO6412 001006 BNE is OR 2. SET UP RS 

2078 4 Ol 1262 MOV RS StTH’ DRESS OF AREA 

3078 420 156737 77 001237 - BISB 4377, *oh XDF a5 ral DEFINED eaiTeH 

3081 006430 421127 000131 1S: CMPB 3s (RL), WY 

ss pe ease 0 008 001362 aN 2 ty R 

3084 Boeae iee7a7 000377 001240 BISB 87, ' PATYDF ;SET PAT Y DEFINED SWITCH 

SEE 006452 ratty 000132 2s: CMPB sR), #2 












3087 O06456 
3088 006460 





sAESHSES 
e 
H 





8 
8 
F 
> 





38 





BOVRA LOOKS 
ro 


0 bh ee 
WOnNMUICWwM-O 


o— bb — b= — &— 0 6 8 b= 8 = b= B= 0 0 0 9 0 0 8 0 & * > BB - -* — — B- * = = Pb bo bs po pe 


WIWIWIW WIIG GIGI) GI GIGI GIG) 6) GI GI 0 GI) GG) GIG) GI) GI) GI I GI) GI I GI GI CI GIGI GI GI GI GIGIG) 
HV SBBIER LO Swe Ver Lowe 
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: 


8-22 
noe 


Ewe 


ae 


001462 
000377 


001702 
OO4EEE 
030746 


ooc040 


000040 


000040 


004666 





001241 


MACY11 27 (732) 


338: 
44S; 


4S$: 
4§: 
S$: 


6S: 


7$: 


9$: 
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205 = s INVALID PATTERN NAME, ERROR 
#377, PATZOF sSET PAT 2 DEFINED SUITCH 
R3,RO STORE R3 (BUFFER AREA) 
TEMP] iTEST EDIT FLAG 
39S IF SET - 
PC, SBSCN ‘ELSE BUMP TO NEXT PARAM, WORD NUM 
R1,-(SP) GET ADDRESS OF PARAM 
Bc? OCTBIN *CONVERT IT TO OCTAL 
‘ ERROR RETURN 
. (SP), Re :GET WORD NUMBER FOR START OF EDIT 
R WW ITS WORD ADDRESS 
Re, RO tet 0 INDEX INTO BUFFER 
#1032, Re -SET MAX OF: EDIT 
(SP)+/Re *NOW SET TO REMAINDER OF BUFFER LENGTH 
208 :ERROR, EDIT IS OUT OF BOUNDS 
##032,R4 ;SET RY FOR COUNT 
(R3)+ ‘CLEAR PATTERN STORAGE 
4 "AREA, 32 WORDS 
44§ ;LOOP 


MOV ;SET TOIAL WORD COUN 
a? REGISTERS USAGE FOR’ THE REMATNDER IS AS TFOLLOMS: 


Rl 
R3 


FOIN TS TO THE PATTERN STORAGE AREA 
POINTS TO THE ASCII INPUT DATA 

USED AS A SWITCH. SET WHEN NULL (CARRIAGE 

RETURN IS DETECTED. 

COUNTER FOR TICKING OFF 6 ASCII INPUT 


CHARACTERS 
POINTS TO THE TEMPORARY CONVERSION BUFFER (CVTBUF) 
COUNTER TO LIMIT INPUT TO 32 WORDS. ALSO 

USED TO FORCE EXIT IF_TWO CONSECUTIVE 

CARRIAGE RETURNS ARE TYPED. 


ee 


R3 sRESET CR SWITCH 

PC, SBSCN ; BUMP Rl TO NEXT PARAM (DATA) 

eC VTBUF , RS ;SET UP CVTBUF POINTER 

#6 >SET UP CONVERSI 

(RL) +, (RS)+ *MOVE ASCII CHAR TO CVTBUF. IF 

6S 70 (NULL) EXIT LOOP CLEAR CR SWITCH IF 
R3 SET (NON-NULL CHAR TYPED). DEC CONVERT 
RY fod BND 

S$ Y, 

10$ RSION 

R3 ie We Tf aN H SET. IF NOT 

7§ SWITCH. IF oer, CLEAR Re 

Re tt T AL WORD COUNT) TO’PREPARE FOR 

R eat CR SWITCH FOR ABOVE 

i sTEST FF TC REST “OE WORDS GO-TO CONVERT 
RS FP’ peace 4 n'baT STORE. IF NOT, GO TO 
#0, (R5)+ “CHECK IF DONE. 
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RK611/RKOG USER DEFINED TEST 
DZRERB. CNB SPECIAL DATA PATTERN ROUTINE 


WQWWWWWWWWIWIOI WWW WWW IW) GIGI) WI OI GIGI) WIIG WI GIGI LI 0) GIGI LI GI CI ICI CIO) 
SOR RIO SSR RR SLB Sara Zan SSSGSEHEH Sooo Ss 


BNE 3 
10$: MOV aCVTEUF -(SP)  ;START OF /SONVERT. RESET CVTBUF PTR 
JSR C,OCTBIN iS CON RSION 
21$ NVER a OR ROUTINE 
NOV (SP)+, (RO)+ STORE CONVERTED VALUE IN PAT STORE 
EC R te 1h WORD C UNT ER 
118: ist Re eT F HORD CNT 
TST R3 eet SERRIRGE RETURN SWITCH 
BEQ 4 : IF NOT SET. GET NEXT 6 CHAR. ELSE 
TYPE  ,SPACEG :TYPE & SPACES TO ALIGN DATA INPUT 
RDLIN ;READ NEXT INPUT LINE 
MOV (SP)+,R1 DRESS hp U 
BR i60p TO PROCESS NEW LINE 
12S: MOV (SP)+,R4 "RESTORE RY FOR RETURN 
st (R4)+ !NO ERROR RETURN 
208: TYPE ,2YOPAR ;TYPE INVALID PARAMETER 
21s: TYPE BADOCT sTYPE BAD OCTAL CHARACTERS 
25$: MOV tSP)+.R4 "RESTORE R4Y FOR RETURN 
am MOV (R4) RY "ERROR RETURN 
MOV (SP)+,R5 :;POP STACK INTO RS 
MOV (SP)+'R3 *:POP STACK INTO R3 
MOV (SP)+;R2 *:POP STACK INTO Re 
MOV (SP)+.R1 j #POP STACK INTO R1 
MOV (SP)+'RO : > POP STACK INTO RO 
RTS RY RETUR 


. ota SRinT MESTETER METI ne ee ce eee ae 
-SBTTL PRINT REGISTER ROUT 
ENTRY: JSR TE 
iy nity Rl POINTING TO INPUT COMMAND 
5 RETURN: RTS RY ERROR RETURN 
it RTS R442 NO ERROR RETURN 


S*THIS ROUTINE WILL at Mf “ais, UNIBUS VISIBLE 

j #REGISTER AND PRINT THE VALUE (OCTAL) ON T 
*TERMINAL. " REGI STER MAY BE SPECIFIED IN OCTAL 

t xFRON 00 T0 1 Fey ren 13 RESERVED FOR FUTURE USE) 

;#OR NNEMONICALLY AS: 


: NAME DESCRIPTION 

: 0 CS1 COMMAND STATUS REGISTER 1 

a 01 WC WORD COUNT 

te 02 BA BUFFER ADDRESS 

if 03 0A DESIRED ADDRESS - TRACK AND SECTOR 
te 04 CS2 COMMAND STATUS REGISTER @ 

05 6S DRIVE 

t 06 ER ERROR REGISTER 

ti 07 ASOF ATTENTION SUMMARY AND OFFSET REGISTER 
# 10 DC DESIRED CYLINDER 

7 le 08 DATA BUFFER 

# 13 MR1 MAINTENANCE REGISTER 

ti 14 POS «ECC POSITION REGISTER. 

i 15 PAT ECC PATTERN REGISTER 
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PRINT REGISTER ROUTINE 


OO674e 0047S, OO46E6 
006 


006752 lelle? 900067 
004737 007054 
0070 


006772 004737 030746 


Dotarcrciencrony 
oto Norin ctahu Oe 
: 

? 

é 


010337 o01224 
013703 001224 


vst 
s: 
ror 


006303 
063703 O2334e 
see7 007024 104400 001171 


002646 
000402 
se3e 007042 104400 003361 


007050 
2235 007050 012603 
3236 O0070Se 000204 


it 000101 
03 000007 
33 

e7 000102 


r 


+ 1b MRe MAINTENANCE REGISTER 2 
MR3 MAINTENANCE REGISTER 3 
HEROUTINGS a 


tf ascn 
rriiirttttiitititittttitittititititititittttittitittiitiiite es. 
PRRTE: 


MOV R3,-(SP) ::PUSH R3_ON STACK 
ISR PC’ SBSCN :BUMP Rl TO NEXT PARAM (RN) 
TSTB. ss (RL) TEST IF PARAM NULL 
BEQ is NO REG Speci FIED USED LAST REG SELECTED 
CMPB ss (R11), #67 TEST IF NUMERIC PARAMETER 
BLOS 4§ -YES = SKIP 
ISR PC, RGDCDE GO DECODE REGISTER 
els i ‘ERROR RETURN 
4§ MOV R1,-(SP) :GET ADDRESS OF STRING FOR CNVERSION 
JSR PC; OCTBIN : CONVERT 
205 ERROR RETU 
MOV (SP)+.R3 :GET RONVERTED NUMBER 
33: MOV R3, REGNUM “STORE INTEGER 
18: MOV REGNUM, R3 : 
ASL R3 ;SHIFT_R3, MULTIPLY INDEX BY 2 
ADD RKBAS,R3 ‘COMPUTE RK611 ADDRESS 
MOV (R3), -(SP) sPUT SELECTED REGISTER CONTENTS ON STACK 
TYPOC TYPE REGISTER CONTENT 
TYPE SCRLF ITYPE ¢ ARRIAGE RETURN & LINE FEED 
TST tRa)+ *SET UP NO ERROR RETURN 
20$: TYPE BRDOCT $TYPE Be OCTAL MESSAGE 
21$: TYPE Base. :TYPE BAD REGISTER SELECTION 
258: MOV tR4) :SET UP ERROR RETIRN 


MOV carne. Or haan INTO R3 


RTS RY RET 


5 ERE REE EE EEE EEE EERE EERE REE EE EEE EEE EEE EEE EEE EE 
ait CONVERT ee Sten IS (ASCII) TO REGISTER NUMBER (OCTAL) 


RGDCDE 
tty Rl POINTING TO THE:REG NAME 
NORMAL RETURN 


S SRETURN: RTS = 
1 RTS  PC+#2____ ERROR RETURN 
is WITH R3 CONTAINING THE REG NUMBER 


*THE ASCII NAME OF THE REGISTER IS DECODED INTO AN OCTAL VALUE 
jE QUIRED TO SELECT THE REGISTER. THIS OCTAL VALUE IS PLACED 


er CMe RD ea ieST IF FIRST CHAR IS A 


RADCDE: ¢ (R1),#°A TEST IF FIRST CHAR IS A 
SNE” 1$ INO = SKIP 
MOV #7,R3 SET FOR ASOF 
BR 0 GO TO EXIT 

1S: CPB =s« (RL), #°B ‘TEST IF B 








7( 
CONVERT REGISTER NAME (ASC TO REGISTER NUMBER (OCTAL) 
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DZR6RB. CNB II) 
3255 007074 001003 BNE 23 
3256 007076 012703 oood02 MOV #2,R3 SET FOR BA 
3257 007102 o000Se5 BR 4o$ GO TO EXIT 
3258 007104 lelle7 000103 23: CMPB. ss (R11), #°C TEST IF C 
3259 007110 O010le BNE 
3260 O0711e 701 ooo00e2 ADD #2,R1 :BUMP R1 TO 3RD CHAR 
3261 007116 lelle? O00061 CMPB (RL), 8° “TEST IF THIRD CHAR IS 1 
3262 O071le2 001002 BNE 3$ :NO_= BRANCH 
3263 007124 o05003 CL R3 ‘SET FOR CSI 
3264 007126 000513 BR 4O$ 
3265 007130 bie703 oo0004 33: MOV #4,R3 ;SET FOR CS2 
2266 007134 00051 BR 40 
3267 007136 l2lle7 O00104 S$: CMPB 3s (R21), #D ;TEST IF D 
352g poviud OOSeOr NE ORE BOP TOUEND. CHAR 
3533 pee tie reitte, 000101 CMPB «CRD, 8A :TEST 2ND CHAR A 
3271 007152 001003 BNE 
72 007154 012703 o00003 MOV #3,R3 ;SET FOR DA 
3273 007160 000476 BR 40 -EXT 
3274 007162 121127 000123 6$: CMPB  =s (R11), #°S *TEST IF 2ND CHAR S 
3275 007166 001003 BNE ? 
3276 007170 012703 oo0005 MOV #5,R3 :SET FOR DS 
3277 007174 000470 BR 40 
| 3278 007176 lelle? 000102 7S: CMPB = (R1), #°B ;TEST IF 2ND CHAR B 
3279 007202 001003 BNE $ 
3280 007204 012703 oco0nle MOV #12,R3 . ;SET FOR DB 
3281 007210 o00462 BR 4 
3282 O07ele 012702 oo0010 8S: MOV #10,R3 ;SET FOR DC 
| 3283 907216 000457 BR 4 
| 3284 007220 121127 o00105 gS: CMPB sR) WE ;TEST IF E 
3285 007224 001003 BNE 10$ 
3286 007226 012703 O00006 MOV #6,R3 :SET FOR ER 
007232 O004S1 BR 4 
| 3288 007834 121127 o00115 10$: CMPB  (R1),#'M :TEST IF M 
007240 001021 BNE 13$ 
90 007242 062701 ooD002 ADD #2,R1 ;BUMP R1 TO 3RD CHAR 
| $291 007246 1elie? 000061 CMPB Ss (RL), #1 sTEST IF 3RD CHAR 1 
097252 001003 BNE 11$ 
| 3293 007 012703 000013 MOV #13,R3 :SET FOR MRI 
3294 007260 000436 BR 
121127 oo006e 118:  CMPB  (R1),#’2 sTEST IF 3RD CHAR 2 
329 007266 001003 BNE 12$ 
007270 012703 oo0dl6 MOV #16,R3 ;SET FOR MR2 
007274 000430 B 40$ 
3299 007276 012703 000017 123: MOV #17,R3 ;SET FOR MR3 
3300 007302 o00425 R | 
330 21127 000120 133: CMPB (R1),#’P sTEST IF P 
3302 10 O0101e BNE 15$ 
3303 007312 005201 INC R1 ;BUMP R1 TO 2ND CHAR 
3304 007314 121127 000117 CMPB ss (R11), #0 TEST 2ND CHAR 0 
| 007320 001003 BNE 14$ 
| 3306 007322 012703 oo0014 MOV #14,R3 ;SET FOR POS 
007 000413 BR 4O$ 
| 3 007330 012703 ooo01s 14$: MOV #15,R3 ;SET FOR PAT 
| 3309 007334 000410 BR 
3310 007336 121127 000127 15$:  CMPB  (R1),#°W TEST IF W 


' 





ad 
ao 
i ~_ e 


“8 


4 
Pisses at 


ai 


PSL as 


0D - IP UT £ Le 


te 


ROMA 


Sitar cotati ata ata 


ee eee 


KOS USER DEFINE 
oC CONVEAR 


ee 


00000 


o00002 


P near MACY]1 e7 (732) 03 “NOV eo a AS 
GISTER NAME (ASCII) TO REGISTE NUMBE 


001234 
001712 
001246 


B07. 





80 


(OCTHL ) 


BNE 20$ 
MOV #1,R3 
oR 40 
208: MOV pion, CaP) 
RTS 
408: ROD ae. (SP) 


RETURN: Ris 


;BR 19 A y's EXIT 
:SET F 


;SET ERROR RETURN 


RTE 


;SET FOR GOOD RETURN 


RTS 
s EEESSLESELELESFLER LALLA LSLALLAFLSL SELLA LHRSS SLES SS SAESLASLSEF SS 


aSTTL rae PRINTOUT ROUT INE 
;* R4, HP 


iaTHIS re PRINTS A SUMMARY OF THE COMMANDS 
;#AND PARAMETERS AVAILABLE TO THE USER. 
;# Hosedde'” "meme 


i 
Iririitiitiiiiiitiiitiitiitiitttitiititititititttt ttt tit tt ite 


HPRTE: STB  HPVLD 


es: 
18: 


is 


BNE 8=—s«1 
TYPE HPF ILE 
TST tR4)+ 
RTS RY 
TYPE HPDATA 
BR 2s 


 SEFESESFEESEERAELERSSERELASALLLSRESLAESSSEREAEASRSSLS SASHA SSLSLS 
“SBTTL NEW TEST 


ROUTINE 
JSR 


RETURN: JMP fone 


TH S ROUTI 


athe hansen 


TERMINA RATES ANY TE 


; TEST IF HELP FILE VALID 


6000 RETURN 
* RETURN 
‘TYPE HELP FILE © 


Te RETURN TO COMMAND LEVEL) 
SOURCE AND OBJECT FILES 


PRESENTLY EXECUTING. ALL 
AND OU BUFFER 

HE INPUT BUFFER 

HE SAME MEMORY, THE 


j #INPUT Burren IS LOST AND MUST BE REINITIALIZED. 


iS HHESOSERSEAEAEAHEREERREEEEEEEEEEOESEEEEEEESEEEOEEEREEEEEEEEEE 


is ROUTINES CALLED 
NONE 

NTRTE: 

Vv R3,-(SP) 

tse cab? SFEMP 
CLRB  -« VLDOBY 
HOY! SOF ILE, OF 
MOV. «_IBUFPT | SFPTR 
CLRB = LINNUM 
CLRB -LNCNT 
MOV —« SFPTR,R3 
MOV MAXWDS,RS 

1S: CLR (R3)+ 


+ ee ee = ee ee 


Amy 


3 ;PUSH R3 ON STACK 
3 PUSH RS ON STACK 
T SOURCE 


ILE POINTER 
ILE POINTER 


;SET UP REGISTERS 
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3 7470 
3353 Bosans 
a 7500 
3355 


3375 00751 
ay ban 
3377 007516 


DE 8 ;AND CLEAR SOURCE 
8 FILE 


“I 
= 
we 
a 

88 
ST 
2 
S 
@ 
4 
a 


PTR 
es: CLR (R3)¢ ;SET UP REGISTERS AND 
pe R ;CLEAR OBJECT FILE 


+ iBOE STACK INTO RS 


BS 


etetat =: 
ie 
3 
< 
R 





OP STACK NT R3 
2706 001100 MOV #1100.SP APE aN OF 
000137 OO441& IMP COMLEYV *G0 T SORMENG LEVEL 

2378 ; HH POSPESR LEEEEGESEREEEESEREEEEEEEEEDESESEEEESESEEE SEES SEES ESSE SES 
3375 "SBT TL ROU 
335 i NIRY: ie RY, BORTE 
3382 iSTHIS ROUT NE WILL pune” THE READ, WRITE, HEADER, OR SPECIAL BUFFER. THE 
3383 BNTRE Last spec iP e0"wR-COONT T THE NUMBER OF. 
3384 tau Re NOT PF ven rae, bes! FIED WORD COUNT IS USED IN THE CASE 
3385 ;#OF THE READ OR WRITE ar 53 if THE CASE OF A SPECIAL DATA BUFFER. 
3386 mp A, Ba oR Ad RR A 
$35, Sores 10046 MOV RO, -(SP) RO ON STACK 
3363 Besesa stat MOV R1;-(5P) t R1 ON STACK 
3290 boree 010246 MOV Re; -(50) ;;PUSH Re ON STAC 
3393 010346 MOV R3,-(5P) ::PUSH R3 ON 
3342 007532 CLR Re :CLEAR FOR POSSIBLE 
3393 007534 004 OO4&EE JSR PC SBSCN GET BUFFER PARAMETER 
32S4 po7e4g 0571 TSTe 3s cI TEST IF TIS Nu 
3395 l Q 21$ sYES - SKIP TO ERROR EXIT 
33% 007544 121127 000122 CMPB 3s« (R11), @°R ;TEST IF READ BUFFER 
3297 907550 001 BNE 1$ :NO = 
3298 007552 013703 001710 MOV IBUFPT,R3 sELSE I ADDRESS OF READ BUFFER 
3399 g07555 Og044) ak 53 9.50 IT 
3400 121127 000127 1S: CMPB OS s«(RL) Wd ioe IF WRITE BUFFER 
Subp a Sea 001706 BOY SF PT.RQ poe cet ADDRESS OF WRITE BUFFER 
3403 pees orice BR cs 60 DO IT 
3404 007574 O01 2s MOV #40 :SET WORD COUNT FOR SPEC BUFF 
3495 007600 ei 000130 CMPB sé, #°X :TEST IF SPECIAL BUFFER X 
3406 007604 001603 BNE NO = SKIP 
3407 007606 012703 Oo0lzte MOV #PATX,R3 “ELSE GET ADDRESS OF BUFFER x 
3408 007612 0004 BR :G0 bo IT 
3409 bo7els 1 000131 33 CMPB sé R1), #°Y : TES M7 BUFFER ¥ 
3410 1 BNE 4 $NO - SKI 
3411 007622 b12703 001362 MOV sPATY,R3 SE I ADDRESS OF BUFFER Y 
3412 007626 00041 BR S 
zi13 007630 1127 000132 4§ CMPB 3 s«(R1) WZ 

14 1 44 
3416 007636 Ole703 001462 HOV spATZ R3 
S419 ae earth 000110 44$: CMPB (Ri 
3418 007650 001057 BNE 21 
3419 007652 012703 001736 MOV SHOBUFF ,R3 
3420 bo7b5e b167e 102 #1 

21 7 666 c$ JSR PC, SBSCN 
2422 007666 105711 TSTe = RIL) 


ae te we mo oe ee ee 








5g Bpabhe eg MP ce Bee oe erauct GhEB NUraee 
7674 A402 BEG 6$ ‘IF NO WRD CNT IN Re, GO USE WORD COUNT 
76 Gi j MOV Re Ri ELSE Set 16 Nhe! COUNT 


BR 
013 001206 &$: fev ueCNT, Ri ;GET WORD COUNT 


irae ed 
(BUD Ors Les 





$ 4 A ecepeememaernecnen wrens: 
i SPUR: RECET Stace Tum TO COMMAND LEVEL 


ROUTINE CHECKS TO BE SURE OBJECT CODE gyre 


it. HEN CHECKS THE NOCK TON. Te tT une tere 
;#WAS COMPILED WITH THE TION HE ROUTINE 
; SPROCEEDS TO CLEAN OFF THE STACK AND EXECUTE THE OBJECT CODE. 


SIF ie neck pCk RT A IS OFF THE oie CHECKS THE CONTROLLER 

; ERROR DRIVE INTERRUPT BIT (BIT 15 & 14 OF CS1). 
;#IF PITHER IS SET A SUBSYSTEM CLEAR IS EXECUTED BEFORE THE 
;#TEST IS STARTED. THIS IS NECESSARY BECAUSE IF EITHER OF THESE 


' 
' 


' 


USER D.TEST _MACYLI 271732) O3-NOV-76 22:40 PAGE 82 
ry Ree SER EE TR OURS Rout! 
3430 0.0146 9 MOV R1,-(SP) :SET UP TO CONVERT PARAMETER 
sia 430 030746 JSR PC’ OCTBIN :G0 CONVERT 
} ‘ 20S ERROR RETURN 
3433 012601 oe MOV (SP)+,R1 :STORE WORD COUNT GIVEN 
3434 O077e2 o0S002 8S: cLR Re ‘CLEAR COUNTERS 
se Gore es Boa005 95 neve RG TE UMBER SF EOCUMNS COUNTER 
3438 re BiSoue MOV Re; -(SP) SET T0 NUMBER. OF COL NUMBER 
3439 go7740 104401 TYPOC IT 
3440 104400 003540 108 TYPE ACE2 : TYPE FORMAT SPACES 
Fant oo7eas 012346 MOV (Ras o(SP) GET WORD TO TYPE 
pag ree eae pee ur uo 
3444 ies 005301 DEC RI DEC NUHER COP NSS TO TYPE COUNT 
3445 007756 001405 BEQ 11S HIE 0 
| sie 907760 DEC RO cOAUnBER OF COL 
00136 BNE 10S iE” NOT 0, GO TYPE EORNAT SPACES AND NEXT COL 
; 1 -— 
3448 007764 104400 001171 4 TYPE SCRLF “ELSE LF-CR AND START NEW LINE 
| 3449 007770 000760 sL OOF 
3150 po777e 104400 001171 11S TYPE SCRLF TURN CARRIAGE 
1 TST tR4)¢ T UP NO ERROR RETURN 
| 3452 010000 o00406 BR 25s 
/ 3453 010002 104400 oco2e46 20S: TYPE BADOCT sapent NON-OCTAL PARAMETER 
| 3464 o10006 Oo0402 BR 24g 
| 3us5 910010 104400 002624 21$: ‘TYPE IVOPAR ; REPORT INVALID PARAM 
| 3456 010014 011404 24§: MOV tR4) RY sERROR RETURN 
, 3457 010016 25s: 
| 3458 O10016 012603 MOV (SP)+,R3 + sBOP STACK INTO R3 
_ 2459 010020 ol1e60e MOV (SP)+'R2 :POP STACK INTO R2 
3460 010022 Ole6o1 MOV (SP)+'RI *:POP STACK INTO RI 
| 3461 010004 012600 MOV (SP)+'RO : HBP STACK INTO RO 
site 010026 9000204 RTS RY 
| 
} 
 -3467 
| S468 
| 3469 
| 3470 
| 5u7] 
3472 
3473 
3474 
3475 
3476 
3477 


4 
o 





i enn ae a 


ee eee. +s 
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DZRERB.C 


UN ROUTI 
3479 :#BITS ARE SET WHEN THE TEST IS STARTED CUITHOUT NO CHECK) 
3180 : xCONTINUIOUS INTERRUPTS Hit ie GENER ATED, THIS CASE CAN ONLY 
81 s OCCUR I ter, THE REV CHECK TEST AND AN ERROR 
55 PeIT THE UNGLERRED JR, tae ae DES A JSR TO THE 
s184 ssot ART Heo THE OBJECT FIL 
*#THIS ROUTINE ALSO acts as A qo ¢ CONTROL THE 
aug3 2 LOOP ON THE OBJ ECT. F bana. eat THE I TERATION P 
3489 > #COUN TING AND RESTARTI T FILE, MAKING SURE 
3189 : +THE STACK IS CLEANED + i PREY Mt T ACCIDENTAL OVERFLOW. 
349i *#WHEN LOOPING IS DONE OR WHEN TEST IS ABORTED 
s132 *#(ABORTING IS PRESENT Y UNDEFINED) THE ROUTINE RESETS 
$3 ?#THE STACK AND JUMPS TO COM LEV. 
Suen . 
349% 010030 005037 001722 RURTE: CLR LPCNT1 sCLEAR LOOP COUNTER 
3497 010034 005037 901724 CLR LPCNT2 
3498 O10040 013737 O0l2e60 023366 MOV TOVAL,W. SEC sSET TIMEOUT VALUE 
3499 010046 105737 001235 TSTB VLDOBY : TEST OBJECT VALID 
3500 0100se 001 Q RUEXIT NO OBJECT 
3501 O01 1 000377 001234 BISS  #377,SFEMP >SET SOURCE FILE EMPTY 
3502 010062 Oi 023342 MOV RKBAS. Re GET UNIBUS BASE ADDRESS 
3503 010066 105037 001103 CLRB = SERFL ‘REAR ERR 
3504 010072 032762 140000 op0000 SIT CERR!DI, RKCS1 (RE) “TEST FOR CONT ERR OR DEV INTERRUPT 
350S 010100 001403 REQ § F, SKIP CLEAR 
350 910102 000010 BIS #SCLR, RKCS2(R2) joer CLEAR SUBSYSTEM, BIT S CSe2 
910110 Ol leze 001714 1S: MOV ITCNT;CNTSTR  ;STORE OFF ITERATION COUNT 
3508 O10116 O1 010144 001110. MOV #LOC2$,SLPERR  ;SET UP ERROR LOOP VALUE 
3509 o10ie4 01 001100 LPRET: MOV #STACK, SP CLEAN STAC 
3510 O101 001116 CLR LINNUM STNTTIAL Loe psuEDO LINE COUNTER 
3511 010134 GO4737 034434 ISR PC, OFILE ;G0 TO OBJECT CODE 
3512 010140 O00401 BR LOt2$ :G00D RET 
3513 010142 RUEXIT ABORT RET 
1 bi0tH4 14 040000 170765 LOC2$: BIT #SW14, ISWR ‘LOOP ON TEST? 
3516 010154 105737 001103 TSTB SERFLG TEST IF ERROR FLAG SET 
3517 O10160 001420 BEQ 
3518 010162 032777 001000 170750 BIT #SW9, SWR ;TEST IF LOOP ON ERROR SWITCH 
3519 010170 001003 BNE 1 
3520 010172 105037 001103 CLRB RFLG ;NO LOOP ON ERROR, CLEAR FLAG 
3521 010176 000411 BR 3 
322 010200 062737 1 001722 1S ADD #1, LPCNT1 sADD ONE TO COUNTER 
3523 010006 005537 001724 ADC LPeNT2 : CARRY 
3524 010212 103002 BCC TEST IF COUNTER OVERFLOWED 
2525 01020149 104400 003441 TYPE LCNTOF : OVERFLOW WARNING 
seb 010220 23: PRET RETURN TO Ee oor 
10222 004000 170710 36: IT #SW11,aSWR *INHIBIT ITERATIONS? 
3528 010230 001003 BNE LOC3$ *BACK TO MONITOR 
$569 the 00 001714 DEC CNTSTR ; DEC Itc MT 
3531 O01 004737 016670 LOC3$: JSR PC PRLPCT *GO PRINT LOOP COUNTER 
3532 01044 012706 0011 cs: MOV STACK, SP iL AN STACK 
3533 010250 001116 CLR LINNUM ‘SET LINE NUMBER TO ZERO 
3634 010254 105737 001663 TSTB = CHNFLG TEST” IF CHAINING 








001403 BEQ RURETN sBRANCH IF NOT, ELSE 
b10ebe bow 013020 ISR R4, ITRTE : JUMP TO INPUT’ TEST 

i 10274 RUEXIT 
3538 010270 000137 904416 RUPETN: JMP COMLEV ; JUMP TO COMMAND LEVEL 
3539 010274 104400 O02764 RUEXIT: TYPE IVDRUN ‘TYPE NO OBJECT CODE 
zo40 010300 000757 BR L0c3$ 
3542 2 pg echshny gn 8 prams aete np nt era apenas 
3543 * aSTTL COMPILE ROUTINE 
3544 :% ENTRY JSR R4, CORTE 
3545 te RETURN RTS Baas FOR ALL RETURNS. ERROR AND ERROR 
2546 i MESSAGES ARE ALL HANDLED LOCALLY 


jATHIS ROUTINE ACTS AS A MONITOR FOR THE COMPILE PROCESS. 
3549 ;#THE DEFERRED ta ARE EXTRACTED FROM THE SOURCE 


3659 t4FILE. THE INTERACTIVE COMMAND TABLE IS SCANNED TO 
366) ? LOCATE THE ENTRY FOR THIS COMMAND. “Re TS SET 

36e2 TO POINT TO THE 2ND WHICH IS THE ADDRESS OF 

3e5 ?eTHE SPECIFIC COMMAND PROCESSOR ROUTINE. CONTROL 

3664 215 THEN GIVEN TO THAT ROUTINE TO GENERATE THE OBJECT 

3t5 ?#CODE. RS POINTS TO WHERE THE OBJECT CODE IS TO BE 

see tas 

355 t¥THIS ROUTINE CHECKS THE COMPILE C IF 

359 24THE FIRST PARAMETER SPECIFIES NO CHECK AND THE SECOND SPECIFIES 
3550 ?4BUS ADDRESS INC INHIBIT FOR DATA T ~ IF THE FIRST IS 
3561 THE NO CHECK (NOCK) SWITCH IS RESET. TE NOT MULL 

363 THE NO CHECK SWITCH IS SET. THIS SWITCH IS USED TO DETERMINE 
363 Ie NO CHECKING 15 TO BE DONE IN TEST EXECUTION. TF_ THE 

3664 i#15 NULL THE BUS ADORESS INCREMENT INMIBIT SUITCH 1S RESET, 

3EE5 t¥ELSE IT IS SET 

2] Fa 

ser8 SRE TRTEVED SEOCENTIAUC TO TE ROT or NTE Ria oe Re MRE cae 
3253 ia1s Pal t1s PRINTED OUT THIS. Line cou COUNT Te TESTED Gainey THE 

3254 + N TRE hie co ERROR RY HAS BEEN FOUNB™ TEE 

73 | iia ve oBsECT a 18 st. ERROR COMPILE OK MESSAGE IS 

3575 + 

3676 te THE SPECIF RRED COMMAND PROCESSOR 

3697 HAROUTINE RETURNS iN ERROR, Fe MESSAGE AND THE 


;#BAD LINE IS PRINTED QNPILE ERROR FLAG IS SET 
jxAND THE NEXT LINE IS Pee iees 


3578 

ee 

3581 | SSUHEN COMPILATION IS DONE, THE cONP ILE ERROR FLAG IS 

3582 Ser A IF SET, THE VALID FLAG IS NOT 
“CONTROL IS RETURNED ak LEVEL.: 

3584 

3585 


is nouranes CALLED 


3269 + a 
a4 i REQUIRED DEFERRED COMMAND PROCESSOR (CSXX) 
3590 + # TYPE 


. FO7 
| USER DEFINED TEST ACYL 27(732) O3-NOV-76 22:40 PAGE &Y 
| 
| 
j 
| 
| 
| 











RKBLI/RKOG USER DEFINED TEST _ MACYLL 271732) O3-NOV-76 22:40 PAGE BS 
DoRERB. C OERPIEE RSGTINE 
oo 3 $3 FRFAKRALARA FLA ARASL KALA LAERAS SERS LALASRELS RE RESEAERSESRESLALALS EFAS 
car Bi Rane y oe on ace PUSH RO ON STACK 
ae i At ue MOV R1;-(5P) at Ri oN eT ack 
35% 010306 O01 MOV Re, -(SP) ::PUSH Re ON STACK 
3597 010319 910 MOV R3,-(5P) ::PUSH R3 ON STACK 
3598 010312 O01 MOV RY? =(SP) PUSH RY ON STACK 
3599 010314 010546 MOV RS’ -(SP) ::PUSH R TACK 
3600 010316 105737 001234 TSTB Emp TEST IF SOURCE FILE EMPTY 
3601 O103ce 0011 ' BNE O$ NO SO 
2602 0103204 1 001664 CLRB © CSERR :CLE ERROR 
3603 010330 0047 6 ISR PC, SBSCN “SEARCH FOR PARAMETER 
3604 O1034 142737 06 o01244 BICB  sNOCK!BALI,OPFLGS -CLEAR SWITCHES 
10342 105711 TSTB Ri) sTEST IF ELTHER PARAM GIVEN 
3605 010344 O01415 BEQ 6$ :NEITHER GIVEN BRANCH 
3607 010346 lell2e7 oo00s4 CMPB sR), 8’, >TEST IF NO CHECK GIVEN 
3608 0103S2 001403 BEQ $s *NO SKIP TO NEXT PARAN TEST 
3699 010354 152737 o00002 o01244 BISB  8NOCK,OPFLGS ELSE SET NO CHECK SWITCH 
3610 01036e 004737 OO4656 cs: JSR Pc, SBSCN *BUMP TO NEXT PARAMETER 
3611 O01 105711 TSTB sR) TEST IF THAT NULL 
3612 010370 001403 BEQ 6$ YES - SKIP 
3613 010372 152737 001244 BISB  #BAII,OPFLGS | ;SET BAI INHIBIT 
3614 010400 012705 034434 6S: MOV #OF ILE, RS :SET OBJECT POINTER 
3615 O10404 013701 001710 MOV IBUFPT,RI “SET SOURCE FILE POINTER 
3616 O10410 013703 001674 MOV OBJSZE,R3 *SET OBJECT SIZE FOR CLEAR 
3617 010414 010504 MOV RS, R4 
3618 O10416 005024 1S: CLR (R4)+ ;CLEAR OBJECT FILE 
3619 910420 005303 DEC R3 : *DEC SIZE CNTR 
3620 O10422 001375 BNE 1$ *LOOP UNTIL DONE 
3621 O10424 105037 001235 CLRB  - VLDOBJ *CLEAR VALID OBJECT INDICATOR 
322 010430 012704 MOV #1, R4 *SET LINE NUMBER 
3623 O10434 013703 001720 MOV JSRRY,R3 :PUT JSR R4Y CONSTANT IN R3 
3624 O10440 010100 2s: MOV R1,RO :STORE ADDRESS OF THIS LINE 
3625 O10442 120421 CMPB sR? (R1)+ *TEST CORRECT LINE NUMBER IN SOURCE 
3626 O10444 O01064 BNE 
3627 O1044%6 004437 004704 ISR RY, ICDEC ;DECODE INTERACTIVE COMMAND 
3628 O104S2 010624 
3629 010454 004472 oO00000 JSR R4, a(R2) - JUMP TO COMMAND COMPILE ROUTINE 
3630 O10460 010624 225 sERROR RETURN 
3631 O10462 105721 3S: TSTB ss (RL) + TEST FOR NULL 
3632 010464 001376 BNE 3$ : 
233 O104G 005204 INC RY *BUMP LINE NUMBER 
1 120437 001243 CMPB sw RY, LNCNT :TEST IF LAST LINE PROCESSED 
| 3635 O10474 101017 BHI 4 : EXIT 
Ee 010476 O197 37 Dt 1674 001762 MOV OBJSZE,TEMP1 § ;GET OBJECT FILE SIZE(WORDS) 
10504 001702 ASL TEMP "MULTIPLY BY TWO(BYTES) 
3638 010510 062737 34 001702 ADD SOFILE,TEMP1  ;GET LAST ADORESS OF OFILE 
3639 O10516 162737 l2 001702 SUB #12, TEMP] "ALLOW FOR THE NEXT COMMAND 
| 3640 b105e4 020537 001702 CMP RS, TEMP1 “CHECK IF ROOM 
3641 010530 101743 BLOS 6s 2S *YES - GO GET NEXT LINE 
sete 10532 000423 BR 238 *NO = TYPE MESSAGE 
3643 010534 105737 001664 4S: TSTB  CSERR ‘TEST IF COMPILE ERROR 
3644 010540 001010 BNE 355 "ERROR EX 
3645 010542 013725 001716 MOV RTSPC, (RS)+ "MOVE RETURN TO OBJ FILE 
2646 O10S46 105137 COMB =-—: VLDOBS *SET OBJECT VALID 
| 
| 
| 
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aa ILE ROUTINE 


RABI ARKO USER 
3647 0105S2 010537 001712 MUV RS, OFPTR ;SET OBJECT FILE POINTER 
8 010556 003000 TYPE , COM POK : TYPE COMPILE OK MESSAGE 
3s$ 
set MOV ete ;;POP STACK INTO RS 
+) 
+! 
+" 
+; 
+ 
| 
| 
| 
| 
i 
| 


2 
rc 


Fa 


aa 
as 


;;POP STACK inte R4 
;;POP STACK INTO R3 


ff 
2 
eesesseee 
Be BSSgare 
peecees 
TEeRaeR 
“gaaz 
“aaa ada 
Faggeces 


ai 
a 


238: TYPE SCTOBG ; TYPE MESSAGE 

20$: Eyre ngs ; TYPE NO SOURCE MESSAGE 
003031 218: Bre ween ;TYPE INTERNAL ERROR 
003063 22s: TYPE »BADCOM ; TYPE BAD COMMAND ERROR 


CLR ~(SP) CLEAR NEXT STACK WORD 
Ove (RO)+, (SP) : MOVE L bine NUMBER TO STACK 


: 


Ecereecenenr enon 
= 
PEEL 


28 
oe 
3 
w 


002516 YPE EQSGN :TYPE EQUAL SIGN 
010650 MOV RO, 40S j ADDRESS OF REST OF BAD LINE 
“TYPE BAD LINE 


2 
23 


40S: . WORD 
00117 Tyee SCRLF ; TYPE CARRIAGE RETURN 
BI 377, CSERR *SET ERROR FLAG 
:PROCESS NEXT COMMAND 


PebaeweReeR 
stir 
Ss) 


000377 OO1664 26S: 


OOOOOOOOO0O0O000000 
= PD = D2 Be b+ B= Fs B— B= Hs fee Peis Be HB ps fre 


: 
% 


sieTTL DEFERRED COMMAND PROCESCOR ROUTINES ene 


TTL DEFERRED COMMAND PROCESSOR R 

3681 : #ALL ROUTINES THAT PROCESS DEFERRED COMMANDS ARE 
3682 ; *CALLED AS FOLLOWS: 
2683 JSR R4, CSXX WHERE XX IS THE COMMAND MNEMONIC 
3684 EaTHE RETURN 1S: 
3685 RTS RY FOR ERROR RETURN 
368 i RTS R442 FOR NORMAL RETURN 
3688 THE ROUTINE Is CALLED | RL POINTS TO THE COMMAND FIELD, 
383 te a io TRB eer’ Hie it 
3691 2#THIS INE MUST INSERT OBSEET CODE, AND R2 
sb%e j SPOINTS TO THE 2ND WORD OF 

a4 Hay cT pitt CONSIST OF J OF JUMPS TO SPECIFIC SUBROUTINES 
rap ree He See i RT cet pu (OONy 37 OCTAL) 
3697 i BLL reRED BY yy he EXECU TION 
3698 *#ROUTINE. THIS $s Is TAKEN ROM THE 4TH WORD 
3699 j#OF THE INTERACTIVE THE EXCEPTION TO 
3700 saTHIS Is THE SUBSYSTEM F TIOH NTERACTIVE COMMAND 
3701 * HE SS OF THE SUBSYSTEM C 
3702 ;*EXECUTION ROUTINE IS FOUND IN THE SUBSYSTEM COMMAND 
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DZRE 


CNB 


eae egeaes 
SeRes ay 


Www 
INN 
~ 


SSSS88h 
O26 = bb bo 
WONMUI£Wiu-O 


RAR SR INNIS 


S 
dg 


SRESRE RBESEEeeeS 
SeRSS ONE 


S99 
oco 


RULE RROE PPE EER ERDAS 
BIS 
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DEFERRED COMMAND PROCESSOR ROUTINES 





* (SCTBL). 

SETHE COMMAND PROCESSOR ROUTINES ALSO PLACE THE 

fre Fie, ie Sune BOF PARARETERS KILL IN 
COMMAND T 


wer BUT 5) ALWAYS 
3% SHE SANE. FOR a SPECIFIC. cOnaN HE 


; XPROCESSOR ROUTINES KNOW HOW i Pane TERS TO 
;*PLACE IN THE OBJECT ae ow hi act UTION 
ent NES KNOW HOW MANY TO RETRIE 


5 ERARAREALLAAE ARLE ALA LLL AL ALLELE LE RL ELAS LL EAEE ARAL ERA AE AERA REESE 


. ve DRG MOSROE BAOTESROE coi id temic ete ene 
Sort PRINT NESSAGE PROCESSOR 


#E R4, CSPM 
j#RET URN RTS RY ERROR RETURN 
* RTS R442 NO ERROR RETURN 


t SOBJECT CODE: 

3% JSR R4,ESPM- 

i <«MESSAGE> WHERE -MESSAGE IS UP TO 20 WORDS 

:#THIS ROUTINE GENERATES THE CODE TO PRINT A MESSAGE OF UP 

;#TO 20 WORDS (40 CHARACTERS) ON THE T 

fp RRRRRARRALE REAL REALL EE REA EEL EAL AE REE ELLE ELLE REL EEA ERE LE RAR REESE 


CSPM: JSR PC, SBSCN ;BUMP R1 PAST COMMAND FIELD 
STB ~—s (RL) *TEST IF ME NULL 
BEQ 2s “EXIT IF YES (NO MESSAGE) 
MOV R3, (RS)+ : INSERT JSR em TANT 
CMP (R2)+, (R2)+ "BUMP R2 TO 4TH WORD (EXECUTE ADDR) 
MOV (Re), (RS)+ s INSERT EXECUTION ROUTINE ADDRESS 
1$: MOVB (R1)4,(RS)+ s INSERT ME 
BNE 1$ *LAST CHARACTER MOVED NULL? 
;LOOP IF NO 
BIT #1,RS ‘TEST IF RS IS EVEN. 
file fice ©" ge*Evene™ LOCATION 
2s: TSTB «= (RL) "DEC R1 TO POINT TO NULL IN SOURCE 
TST (R4)+ ;SE1 SOOD RETURN 
RTS RY *RETU 


593 EE EEE GE EE EEE 
SBT REGISTER COMPARE au*egne Fon Re WeITEe AND STATUS COMPARE PROCESSORS 
ENTRIES: JSR STER COMPARE 


rs JSR RY CSRW FOR REGISTER URITE 
ii JSR —-RYSCSSC FOR STATUS COMPARE 

? #RETURN: RTS sR ERROR RETURN 

it RTS R442 NORMAL RETURN 
sROBJECT CODE: RY __ESRC_OR ESRW_OR ESSC 
+ BPC ISTER'OR STATIC oR AORBER 


D 
% EXPECTED VALUE OR VALUE TO BE WRITTEN 
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AGE 88 
REGISTER COMPARE, REGISTER WRITE, AND STATUS cMPARE PROCESSORS 


RK611/RKO& USER DEFINED TEST 
OZRERB. 


SERIE CLP Pen eReeet: 


OOOOOO00000O0 
2 b= OD bs bs he Bs be 


eBeDweDeD 
ee ee oo oe 
WMO 


ResaSRanseso 


001704 


3% MASK (RC & SC ONLY) 


:# 
:*THIS ROUTINE HAS THREE ENTRY POINTS, ONE FOR EACH 
HS Neat Nis LINK TO THE PROPER EXECUTION ROUTINE 


SEACH PARAMETER IS TAKEN FROM THE COMMAND LINE IF IT IS PROVIDED. 
;*IF PROVIDED, IT IS ALO Oa Toreo Fe FOR S ype Tete LATER USE. IF IT IS NOT 
;*SUPPLIEO, THE VALUE G T WAS SPECIFIED IS USED. 
NOTE THAT THE PARAMETER STORAGE "FOR THE REGISTER COMPARE 
; *AND UMBER AND VALUE) IS THE SAME. THIS MEANS 


THE REGISTER WRITE (REGISTER N 
oh WHEN ONE COMMAND CHANGES THE VALUE IT IS CHANGED FOR 
ovin 
HATHE REGISTER ASSIGNMENT IS: 
i ; cSt {CONTROL AD AND STATUS 1) 
:# 2 BA (BUFFER DRESS) 
tx 3 DA (DESIRED TRACK AND SECTOR) 
SU OS (DRIVE aa i a yon 
2 6 ER ( GISTER) 
x ? ASOF RATTENTS i ARY AND OFFSET) 
x 10 DC (DESIRED AYN IRER) 
% 12 OB (DATA BUFFER) 
2% 13 MR1 (MAT CE REGISTER 1) 
* x 14 ECC POSITION REGISTER 
i 1S ECC PATTERN REGISTER 
* 16 MRe (MAINTENANCE REG 2) 
i 17 MR3 (MAINTENANCE REG 3) 
j HTHE STATUS WORD ASSIGNMENT IS: 
2x 0 LINE A WORD O 
1% 1 LINE B WORD O 
* 2 LINE A WORD 1 
* 3 LINE B WORD 1 
* 4 LINE A WORD 2 
54 S LINE B WORD 2 
;* 2 LINE A WORD 3 
3 INE B WORD 3 
5p RERERRELE RARE ELSE REAR ERLE EEA E ELLER ERA R ERLE E ERLE RELL AE LELE 
CSRW: MOV #REGNUM, TEMP1  ;STORE RW PARAM BASE 
AC iSTORE MIGER, CF Poa 
CSRC: MOV #REGNUM, TEMP1  ;STORE RC BA 
BR g,fetre BRANCH TO COMMON RIE 
CSSC: MOV #STATRD, TEMP!  ;STORE SC PARAM BASE 
Mii MOV #3, TEMP2 ;STORE NUMBER OF PARAM 
* MOV RO, -(SP) 3;PUSH RO ON STACK 
MOV RY’ -(SP) : PUSH RA RY ON STACK 
MOV TEMP2, R4 : SET R OF PARAM 
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DZR6RB. CNB REGISTER COMPARE, REGISTER WRITE, AND STATUS COMPARE BRSCESSORS 
3815 011006 013700 001702 MOY TEMP1,RO SET PARAM BASE 
3817 011012 004737 OO46EE 1$: ISR PC, SBSCN HP R1 TO NEXT PARAM 
3818 O11018 rant TSTB ~—s (RL) a FoR Hy (REMAIN PARAM DEFAULT) 
1 1 14 BEG § iB ANCH 
se] GLEE agiugs a re EA aa Br 
3853 Bt tose 121127 000067 CMPB ss (R11) , #67 EST ee nChp OF 
3823 011034 101407 BLOS 40S [EB +eAN 
3824 011036 010346 MOV R3,-(SP) LES R3 
3825 011040 004737 007054 ISR PC; RGDCDE GO DECODE REGISTER 
2826 O11044 011140 21$ “ERROR RETURN 
3827 01104 010310 MOV R3, (RO) STORE REG NUMBER 
3828 O110S0 012603 MOV (SP)+,R3 RESTORE R3 
3829 011052 oo0040S BR $ 
3830 O11054Y O10146 40S: MOV R1,-(S ;SET UP TO CONVERT PARAM 
3831 011056 004737 030746 JSR BG’ OCTBIN :TO BINARY 
3832 011062 011132 20S 
3833 011064 012610 NOV (SP)+, (RO) sSTORE PARAM 
3834 0110665 o05720 2S: TST (RO)+ *BUMP_RO TO NEXT PARAM STORE 
3835 011070 DEC RY *DEC PARAM COUNT. TAKE 
3836 011072 001347 BNE 1$ "ONLY 3 PARAMETERS 
3837 011074 013700 001702 38: MOV TEMP1,RO "RESET TO BASE FOR PARAM INSERTION 
3838 O11100 010325 MOV R3, (RS)+ * INSERT JSR R4 CONSTANT 
3839 011102 OQee2e2 CMP (R2)+. (R2)+ ;BUNP Re 
3840 O11104 O11225 MOV (Re), (RS)+ “INSERT EXECUTE ADDRESS 
3841 O11108 012025 MOV (RO)+, (RS)+ ‘INSERT REGISTER OR STATUS WD NULL 
3842 011110 Olepes MOV (RO)+; (R5)+ INSERT EXPECTED VALUE 
3843 Ollile 023727 001704 cooN0e CMP TEMP2, #2 “TEST IF RWCONLY 2 PARAM) 
3844 011120 001401 - BEQ 4§ IF YES, GET OUT. ELSE 
3845 Ollle2 012025 MOV (RO)+, (RS)+ INSERT MASK 
384 011124 012604 45 MOV (SP)+;R4 *RESSTORE R4Y FOR RETURN 
3847 O1lle6 005724 : TST (R4)+ :NORMAL RETURN 
3848 011130 000407 BR St«s«é’SS$ 
3849 O11132 104400 002646 20$: TYPE BADOCT ;TYPE INVALID OCTAL MESSAGE 
3850 011136 oo0402 BR $ 
2851 011140 104400 003361 21$: ‘TYPE BADSEL ;BAD REG SELECTION MESSAGE 
3852 011144 012604 223: MOV tSP)+. RY "RESTORE R4Y FOR RETURN 
3853 011146 O11404 MOV (R4) RY *BAD RETURN 
3854 011150 25s: 
3855 011150 012600 MOV (SP)+,RO ;:POP STACK INTO RO 
3856 011152 Oo00204 RTS RY t RETURN 
3858 ee aa pet tok spt oe ht pee ene eepctcinae tearatareentanancene 
| 3859 *SBTTL BUFFER INITIALIZE PROCESSOR 
3860 : ENTRY: JSR RY, CSBI OR ISR R4, CSCBI 
3861 *#RETURN: RTS RY’ RETURN 
3862 is RTS R442 SRRRAL ROUTINE 
Eee BPs HHOBIECT CODE: 
| 3865 1+ JSR RY, ESBI 
666 ii <EXECUTION LINE COUNT CONTROL><PATTERN NAME> 
3868 i STHIS ROUTINE GENERATES THE LINK TO THE BUFFER INITIALIZE EXECUTION 
3869 #THE PATTERN NAME IS ENTERED AS THE LOW ORDER BYTE OF THE PARAMETER. 
| 3870 *#BIT 15 IF THE PARAMETER BYTE IS USED TO TELL THE BI EXECUTION 
{ 
| 
® 
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BUFFER INITIALIZE PROCESSOR 


RK611/RKO6 USER DEFINED TEST 
DZRERB. CNB: 
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Bb = be bs Bo 2 ps ht Ft 8 + Be b> bs bh = ht te ho Be ge 
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;#IF THIS IS AN INTERNALLY GENERATED BI OR A USER COMMAND. IF 
USER COMMAND, BIT 15 IS A ONE. THIS INDICATOR CONTROLS LINE 
:#COUNT INCREMENT DURING EXECUTION. 


1+ 

; XTHIS ROUTINE HAS A SPECIAL ENTRY (CS$CBI). THIS ENTRY IS USED 

+ A DA eR yet ats OPERATION REQU ts ES BUFFER INITIALIZETION. 
cor de® wen INSERTS A JSR TO THE SPECIAL ENTRY INTO THE 

STOBTEC CODE BEF POR HE pall atthe JSR (SEE DESCRIPTION OF 

weapons FUNCTION PROCESSOR 


*THE RANDOM gh IS GENERATED AND STORED IN THIS ROUTINE IF 
PATTERN R IS SELECT 
Prrtttttiittiititttttttiititttiititiittitttttitititttiiiiitt ies) 


oat: 


MOV RO,-(SP) ;PUSH RO_ON STACK 


JSR PC’ SBSCN : BUMP Ril TO NEXT PARAM 
MOVE  (RI),RO *MOVE PAT NAME INTO RO 
BNE is ‘IF NOT NULL, BRANCH, ELSE 
MOVB  PATSEL,RO ;MOVE “A” INTO RO 
1S: BIS #BITIS'RO *SET BIT 15 FOR LINE COUNT CONTROL 
tea R _C$CBII’ "BRANCH AROUND SPECIAL ENTRY 
MOV RO,-(SP) ;:PUSH RO ON STACK 
CSCBII: MOVB RO,PATSEL A ORE PATTERN SELECT 
MOV R32’ (RS)+ : INSERT JSR R4 CON STANT 
CMP (R2)+. (R2)+ *BUMP R2 TO 4TH WORD TO 
MOV (Re), (RS)+ *INSERT EXECUTE ADDRESS 
MOV RO, (RS)+ : INSERT INDEX INTO PATTBL 
CMPB ss RO, #’R RANDOM PATTERN? 
BNE. 3% ;NO_- BRANCH OUT 
MOV:  #PATR,RO GET ADDRESS OF PATR STORE 
2S: JSR‘.  PC,S$R GENERATE RANDOM VALUES 
MOV SAtRUM (RO)+  $LOAD PATR WITH HI VALUE 
MOV at ONUE (RO)+ LOAD PATR WITH LO VALUE 
CMP #PATR+100,RO § ;PATTERN FULL? 
BNE 2s *NO = DO IT AGAIN 
COMB § PATROF *SET PAT R DEFINED SWITCH 
MOV (SP)+,RO : jPOP STACK INTO. RO 
TST (R4)+ sagt RMAL RETU 
RTS RY 
: Rr TTT al lailelelcebiiel 
-SBTTL DATA COMPARE PROCESSOR 
ENTRY: RY, CSDC 
HSRETURH: ave RY ERROR RETURN 


RTS R4+2 NORMAL RETURN 
i OBJECT CODE: 

+ JSR RY 

is COMPARE Peng ea (OCTAL) 


tATHIS ROUTINE GENERATES THE LINK TO THE DATA COMPARE EXECUTE. 
;*#THE COMPARE LENGTH PARAMETER IS TA cal das THE COMSZE 
;*¥PARAMETER STORAGE LOCATION IF IT IS NOT GIVEN WITH THE COMMAND. 
;*IF IT IS GIVEN, IT IS STORED IN COMSZE FOR POSSIBLE LATER 
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OZRERB. CNB DATA COMPARE PROCESSOR 


3927 ;¥USE. (CUMSZE WILL ALWAYS BE EITHER THE DATA COMPARE 
3928 ?*LENGTH PARAMETER OR THE WORD COUNT OF THE LAST 
3929 pHINPUT DATA TRANSFER. ) 
aso SUE HE SE HE HEHEHE HEHEHE 
3932 011264 cats 
3933 011264 91004 a MOV RO, -(SP) ;:PUSH RO ON STACK 
3934 011266 004737 OO4666 JSR PC’ SBSCN BU MP R1 TO NEXT PARAM 
3935 Olle7ve 105711 TTB 3s ¢ RL) ‘TEST IF PARAM NULL 
3936 O11274 001406 BEQ 7 IF YES 
3937 11276 O10146 MOV R1,-(SP) SET UP FOR CONVERT 
2938 O11 737 030746 JSR PC’ OCTBIN :CONVERT PARAM TO BINARY 
3939 011304 011330 20S "ERROR RETURN 
3940 011308 012637 001254 MOV (SP)+,COMSZE  :STORE COMPARE LENGTH 
3941 Oll3le 010325 23: MOV R3, (RS)+ ‘INSERT JSR R4 CONST aNT 
3942 011314 Oe2222 CMP (eB) (Rey ‘BUMP Re TO WORD 4 AT ICTBL 
3943 11316 Oiiees MOV ), {RS INSERT EXECUTE RTE ADDRESS 
3944 011320 0913725 001254 MOV cOnSde they ‘INSERT COMPARE LENGTH 
3945 011324 005724 TST (R4)+ -SET FOR NORMAL RETURN 
3945 011326 000403 BR 30$ 
47 011330 104400 002646 20$: TYPE BADOCT ;TYPE BAD DECIMAL MESSAGE 
$48 011334 011404 MOV tR4),R4 _$SET FOR ERROR RETURN 
3949 011336 30S: 
3950 011336 012600 MOV (SP)+,RO “ss POF STACK INTO RO 
| 3351 011340 000204 RTS RY RET 
3353 j RERREE ERE RH ERE L ERLE EERE ERLE ERLE EARLE EERE LEER EE EERE REE ERE RHEE 
3954 ‘aBTTL STALL PROCESSOR 
3955 : ¥ENTRY: ISR RY, CSST 
3956 j FRETURN: RTS RY ERROR RETURN 
335 i RTS R442 ; NORMAL RETURN 
3959 S SOBJECT CODE: 
3960 x JSR R4, ESST 
3961 i STALL DURATION (OCTAL) 
3963 HATHIS ROUTINE GENERATES THE LINK TO THE STALL EXECUTE. 
2964 ¥THE PARAMETER, IF GIVEN IN THE INPUT COMMAND, IS 
3965 t #DECODED FROM ASCII DECIMAL INTO BINARY AND STORED 
3966 °#IN THE PARAMETER STORAGE LOCATION “STALL”. IT IS THEN 
3967 *#PLACED IN THE OBJECT CODE. IF THE DELAY IS NOT 
3368 eo IN THE COMMAND THE OLD VALUE OF 
| 3300 STtiiTiritiiitit iit tit tii titiiitititittittittitttt tere 
j 
| 3972 O11342 004737 cO4bE esis JSR PC, SBSCN ;BUMP R1 TO NEXT PARAM 
| 3973 O11 246 105711 TSTB. Ss CR) ;TEST IF PARAM NULL 
| 3974 011350 001406 BEQ is °BR 
3975 011352 010146 MOY 7 (SP) *SET UP FOR CONVERT 
| 3976 011354 004737 o31102 JSR Ba? DECBIN : CONVERT PARAN TO BINARY 
3977 011360 011404 205 “ERROR RET TURN 
| 3978 011362 012637 oOl1es2 MOV (SP)4 STALL STORE STALL VALUE 
| 3973 011366 010325 1S: MOV + * INSERT TSR R4 CONSTANT 
| 3980 011370 Geeeee CMP (Rb) (R2)+ ;BUMP Re TO 4TH WORD ICTBL 
| 3981 011372 011225 MOV (Re), {RS)+ INSERT EXECUTE ADDRESS 
| 2982 011374 013725 oolese MOV STALL, (RS+ INSERT STALL PARAMETER 
i aacigdeasdaaaelgh: 
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° L PROCESSOR 


peat 002520 
011404 


ocooos 
oooocs 
000005 
oo0c0s 
000004 
000004 
000001 
000001 
000001 
000001 
000001 
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TST (R4)+ s SET UP_NORMAL RETURN 
R_TO RETUR 


BR 30$ ETURN 

20$: TYPE BRODEC ‘TYPE BAD DECIMAL MESSAGE 
MOV tR4),R SET UP ERROR RETURN 

30$: RTS * RETURN 


5 ERKKER ERE REE IEEE EERE EEE EEE THATS EERE TIAA KESSEL 
SBT UNIBUS TNL TIALIZE PR PROCESSOR 


J R4, CSUI 
j FRETURN: RTS Ryde NO ERROR RETURN 


| SOBJECT coe: 
- JSR R4, ESUI 


tSTHIS ROUTINE See neres THE UNIBUS INITIALIZE LINK 
Beth THE OJBECT CODE. 
5 HRI EHR RRA EERE EERIE EE EE EERE EERE EEE RATER ESLER 


ads MOV R3, (RS)+ s INSERT JSR RY CONSTANT 
, CMP —.-: (R2) +, (R2)+ :BUMP R2 TO 4TH WORD OF TABLE 
MOV (Re), tRS)+ : INSERT EXECUTE ADDRESS 
TST (R4)4+ : NOR AL RETU 
RTS RY * RETURN 


nares ane ee 
parte eke CONTAINS ALL THE SUBSYSTEM COMMANDS. THE TABLE 


7% WORD1: SUBCOMMAND MNEMONIC 

3% WORDE: ae OF EXECUTION SUSROUTINE FOR THIS COMMAND 
5 R THE NUMBER OF PARAMETERS THIS COMMAND REQUIRES 

| eULEULEEEEEEE EN EO SnE EERE REO EEOEED SERS ATS EES EEE 


EV 
scTeL: “ABLT /RD/ ;READ DATA 

“ASCII /WD/ ;WRITE DATA 

-WORD. ESWD,S 

ASCII /WC/ ;WRITE CHECK 

Wd ESWC,S 

sASCII = /WH/ ;WRITE HEADER 

-WORD  ESWH,S 

-ASCII /RH/ ;READ HEADER 

WO ESRH,4 

«ASCII /SK/ ; SEEK 

-WORD ESSK,4 

-ASCII /CC/ ;CONTROLLER CLEAR 

-WORD. ESCC,1 

-ASCII /CS/ , » 3CLEAR SUBSYSTEM 

-WORD E$CS,1 ‘ 

eASCII /DC/ ;DRIVE CLEAR | 

-WORD ESDC,1 

eASCII /RC/ ; RECALIBRATE 

-WORD ESRC,1 

-ASCII /DS/ ;ORIVE SELECT 
ORD. €E$05S,1 


W 
-ASCII /PA/ ;PACK ACKNOWLEDGE 





——— 


rr a 009002 
fi - Geise 00009: 
Ha Bo coe 
ie ere = 
Sti 


1 
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TABLE 


oe ESPA,1 
SC /UL/ ; UNLOAD 
ESUL,1 
EBS ;STORT SPINDLE 
E$ss,1 
/0F/ ; OFFSET 
. core 4 
a ;ALL HEADER READ 
HOR ee, 4 
ol ;NULL TO TERMINATE TABLE 


SFHSPRSESELSERSSESSSFSSEFFSSELSELSARSESSES HLEBLSLSELESFSSSFREFELEFP FRE 
‘ASTTL SUBSYSTEM FUNCTION PROCESSOR 


;#ENTRY: JSR RY, CSSF 
j #RETURN: RTS RY ERROR gy 
S R442 NORMAL RETURN 


{OBJECT CODE: 


JSR RY, ESXX : avi S THE COMMAND EXECUTE ROUTINE 
OPERATION 4efRRe BIT | NO CHECKING 
- BUS ADDRESS INCREMENT INHISIT 
3 ed SECTOR FORMAT 


DRIVE NUMBER 
‘CYLINDER NUMBER 
TRACK NUMBER 
SECTOR NUMBER 
WORD COUNT 


eee eweee ee . . . 
Seer TTT Te TTT 


;* 
. 
’ 
’ 
, 
, 
« 
, 
$ 
, 
, 
4 
; 
; 
; 


THE bi oy OF PARAMETERS IS yne 
*WORD 3 THE SUBSYSTEM COMMAND T 


+ . 
#THIS ROUTINE PROVIDES THE LINKS TO THE VARIOUS EXECUTION ROUTINES FOR 
; #SUB aye ien COMMANDS. IT DOES THIS Feet a NG Ly PROPER DESTINATION 


FOR THE JSR. THE TE HE 
secu ROUTINE IS PLACED IN THE OBJECT FILE IMMEDIATELY 
OLLOWING THE JSR COMMAND. 


+ SWHEN THE ROUTINE IS ENTERED, THE REGISTERS MUST BE SET 
s#AS FOLLOWS: 


RO-NA 

SL Tus TO THE SF MNEMONIC IN THE SOURCE FILE LINE 
O wespeing JSR R4 CONSTANT 

RS-POINTS TO THE 1ST UNUSED LOCATION IN OBJECT FILE 


err st ts 


THE 
oi: ie FT nf toeot INTO R2 AND 


ssSRECIEL F THE SC PAR THE STORED VALUE 
pen uBC 1B. iF PUT IN att a chIvEty LOCATES Fue TABLE 
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DZRERB. CMS SUBSYSTEM FUNCTION PROCESSOR 
4095 S#THE REMAINING PARAIE TERS IN THE Source @RE THEN 
4596 PROCESSED. IF THE PARAMETER 1S NULL, THE LAST SPECIFIED 
? EVAL FOR THAT PARAMETER IS UeED- Ut THE PARAMETER 
4898 81S G VEN, Mi rs STORED AN PARAMETER STORAGE AND BECOMES 
4099 s#THE LAST V GIVEN 
4109 ; #SEVERAL § SPECIAL CASES EXIST. THESE ARE: 
410) i -PA RN SELECT aaesci IED 
ates + MAL Dae C 
10 hal 
40 i “ INVALID OORD SOUNT 
4106 _p*SUPPLYING T parr BN SELECT PAR PARAMETER REQUIRES OUTPUT BUFFER 
41d? #INITIALIZATI D BY USING THE BUFFER 
4108 s HINITIALIZE C PROCESSOR ROUT THE WITH A SPECIAL 
‘ 4108 t#ENTRY (JSR RY cSCBI) HIS GENERATES A LINK TO THE 
4116 [#BUFFER INITIALIZE TION ROUTINE THAT 1S IDENTICAL TO 
will :#A LINK GENERATED BY A BI INTERACTIVE COMMAND. THE 
4112 #LINK TO BI IN THE OBJECT FILE WILL BE INSERTED BEFORE 
dis ;3 HE LINK TO THE SUBSYSTEM COMMAND. 
411s ?#A NULL DRIVE PARAMETER IS SPECIAL BECAUSE IT REQUIRES 
| as geese? gang eaeneien te'off for Dee bane 
4118 :#NOT SPECIFIED fA THe COMMAND . The PERNA “hdtutt 
| 4319 :#ROUTINE KEYS OFF THIS AND GOES TO THE STORED BRIE 
| 4129 j SPARAIETER FOR THE DRIVE NUMBER. 
| wee i THE OFFSET C REQUIRE SA UNTQUE PARAMETER (OFFSET) 
| 4ie3 *#IN THE POSITION HE CYLINDE TO PRESERVE 
Hes ; #THE STORED CYLINDER NUMBER ee MUST BE SPECIAL CASE. 
| 4126 ss #THE WORD COUNT PARAMETER RoR. CHECKED TO INSURE 
| 4127 t#BUFFER IS LARGE ENOUGH. AN ERROR IS PR 
j ise 33 rk a Has ld, AD ee ell ME . Re i ReRE 
i 
| 4130 911570 CSSF: 
| 4131 011570 o10046 MOV RO, -(SP) ; PUSH RO ON STACK 
4132 011572 O10246 MOV Re, -(SP) * >PUSH Re ON STACK 
4133 O11574 009737 OO4SEE JSR PC’ SBSCN :BUMP R1 TO NEXT 
| 4134 011600 112137 001702 MOVB (RL) +, TEMPL : MOVE RL CHAR OF rous. CMND. 
| 4135 011604 01403 BEQ 1$ ‘BRANCH IF NULL 
4136 O11606 111137 001703 MOVB § (R1),TEMP1+1 | 3MOVE 2ND CHAR OF SUB CMND 
4137 Ollél2 601015 BNE 3$ *BRANCH IF NOT NULL 
| 4138 011614 005301 1S: DEC Ri sDECRENENT Ri TO INSURE IT DOESN’T 
4} GET PAST THE NULL CHARACTER 
| 4140 011616 013702 o01214 MOV SUBCMD, R2 GET 2ND WORD ADDR FOR LAST CNND 
; 414 Oi ibee 1051 OO16E6 COMB *SET SAME DRIVE SuITCH 
ty 11626 043117 CMP =(R2), 8" OF *LAST OFFSET? 
4143 O11 001 : ELSE 
' 4144 011634 105137 o0166S COMB 6-sOF FLAG :SET FSET FLAG 
i Mls 11649 b057<e 2s: TST (Re)+ ; BUMP R2 TO SECOND WORD 
| ai 1164 137 012234 IMP 4} GO TO FILL OBJECT 
414 11646 124127 000054 3: CMPB OO s«=(R1), 8’, TEST IF IST CHAR COMMA 
4148 O116 1423 BEQ *BRANCH IF YES. ELSE 
' 4149 0116549 023727 001702 043117 31%: CNP TEMP1, #"OF ‘TEST IF OFFSET 
4150 Ollé62 001002 BNE ug BRANCH IF NO. ELSE 


a - e ereeee se 
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“igh Oi i664 405137 901 B65 COMB = OF FLAG ;SET_ OFFSET FLAG 
116 127 11426 4g: MOV SSCTEL Re ‘LOAD ADDRESS OF SUBCMND TASLE 
bie Oe372e2 001702 cs: CMP TEMP1, (R2)+ ‘tect IF TABLE ENTRY MATCH 

ateq 11700 o01405 BEQ 6$ YES, FOUND A RANCH 

41SsS 011706 2 TST =(R2) yest Pree, M0 TABLE NTRY NULL 

4156 011704 O01S02 BEQ 26$ RATCH IN TABLE, ERROR 

4157 011708 962702 Oo00006 ADD #6,R2 TABLE NTRY 

4158 1i71¢ BR #3 fit est Nex NTRY 

4159 011714 010237 oo1214 b$: MOV 2, SUBCMD rnc 10 M D, LAST CMND 

4160 011720 OO0410 BR 9 

4161 Olizee 013702 001214 73: MOV SUBCMD, Re xt 2ND WORD ADDR LAST CMND 

“ibe 011726 beNee? 043117 CMP =(Re), &"OF :TEST IF LAST CMND OFFSET 

4163 011732 001002 SNE IF BRANCH. ELSE 

4164 011734 105137 OO166S COMB = OFFLAG E LAG 

4165 011740 005722 QS: TST (Re}+ ‘BUMP Re BACK TO SECOND WORD 

4166 011742 005000 35: CLR RO 'CLR_RO FOR PARAM COUNTING 

4167 011744 004737 OD4bE6 ids: JSR PC, SBSCN >BUMP R1 TO NEXT PARAM 

4168 011750 lelle7 oocos4 CMPB. sé)’, ;TEST IF COMMA 

4169 011754 001005 BNE 1 IF NO 

4170 011756 005700 TST RO -TEST IF ORIVE SELECT PARAM 

417] 11760 001111 BNE 18S :G0 TO BUMP & LOOP 

4172 O11762 105137 OO1666 COMB §SAMOR *SET SAME DRIVE SWITCH 

4173 011766 BR 18$ :G0 TO BUMP & LOOP 

4174 O11 esa 118: TSTB (RI) TEST PARAM NULL 

4175 011772 001005 BNE 125 NOT NULL 

4176 011774 005700 TST RO *TEST IF DRIVE SELECT PARAM 

4177 011776 OO11I6 BNE 41S G0 TO FILL OBJECT 

4178 Sie009 105147 CO1bEE COMB § SAMOR >SET SAME DRIVE F 

4173 912004 13 BR 41g 60 TO FILL OBJEC 

4180 012006 O20027 000016 12: CMP RO, #16 :TEST IF TOO MANY PARAM 

4181 012012 002017 BGE 2i$ ‘BRANCH TO 

4182 012014 020027 o00012 CMP RO, #12 *PATTERN SELECT PARAM? 

4183 O1 1901 BEG 138 IF YES BRANCH, ELSE 

4184 ot BR 14 :GO TO SUMP & LOOP 

4185S Ol 10046 138: RO, -(SP) “SAVE RU 

4186 Oiedes 010246 MO R2'-(SP) :SAVE Re 

4187 O1 O1e70e 004016 MOV aC$CBIS,R2 :SET Re WITH ADDRESS OF “BI” EXEC ROUT 

4188 012034 1111 (R1). RO :LOAD RO WITH PAT SELECT CHAR 

4189 012036 004437 011200 JSR R4, CSCBI : JUMP TO SPECIAL BUFFER INITIALIZE 

4190 sENTRY. A JSR RY, BI (PATTERN 

4191 *NAME) WILL BE INSERTED INTO 

4183 912042 go0000 WORD 0 TS RETURN POINT 

4194 012044 Ole60e MOV (SP)+,Re ? RESTORE 

4195 012c04% 012600 MOV (SP)+'RO RESTORE 

4196 012050 OO04SS BR 18 G0 TO BUMP 8 LOOP 

4197 012052 104400 002624 21S: TYPE IVDPAR *TYPE INVALID PARAMETERS 

uigs bisoe0 : on, = 

4200 01 104u0g 002646 e4$: ‘TYPE BADOCT “TYPE BAD OCTAL MESSAGE 

uso 0106 ee 2ss a (SP)+ ;DUMP BAD VALUE 

4203 6 rth 003111 TYPE iv *TYPE INVALID WORD COUNT 

4204 o1e07s BR 26S 

4205 012076 rats 003136 27S: ‘TYPE IVONC ro INVALID COMMAND IN NO CHECK 

4206 Olel0e boo403 BR 2 
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OZRERB. CNB SUBSYSTEM FUNCTION PROCESSOR 


4 121 288: TST (SP)+ ;DUMP BAD DRIVE NUMBER 
i2a8 BL$10g opaa88 003161 ne TYPE —, BADDRV TOPE MESS 

4210 lelie 011404 eos: MOV (RY), RY SET UP ERROR RETURN 

uele 12114 912608 "MOV (SP)+,Re 33POP STACK INTO Re 

e13 Geile 312600 1 Hoy (SP)+, RO | {DOP P STACK INTO RO 

we1S5 Olel sere 1 14S MOV R1,-(SP) ARAM ON STACK 
Hel oie es box738 030746 13k PC’ OCTBIN ue Aare ae eS QCTAL | T0 10 BINARY 
4218 Olel32 O20027 000010 CMP RO, #10 + HORD COUR 

4315 Oiel% 101 BNE 178 : IF NO BRR 

Heo Sie140 o 1 001700 cH (SP) , MAXHOS i TEST ia ib COUNT IF TO BIG 
ieee Olelve 036737 ooo004 001244 BIT G811, OPFLGS sELSE TEST IF BAL INH INHIBIT SET 
Weed DISTEe BOOT BR 25 tELSE GO REPORT 

4225 012160 eed opoo02 17S: CMP RO, #2 :CYL NUM OR OFFSET 

so) Hise, BENS A ig a a 
SA MER BIE cour Bea HRer BAR Ba cB 
2 bSe08 Tete 001176 32$ SOY ss, DRIVE(RO) $10 IG VAL IN PR PROPER STORAGE 
1232 BigemN asia cooooe2 183 B00 #2,R0° ; BUM Ra. T0 NEXT PARAM 

ea Bisel? ita coves = ass: fore Grrinc TEST IP rae FOG SET 
oo ES tre Om ay igen ipso Sa ae 

1238 Oiseee 012637 001256 40S: HOV (SP)+,LOFFST  :STORE OFFSET VALUE 

440 bise 1 41S: MOV HINeeRT J Ry CONSTANT 

asus Of pieces HOV the), (is) TRUM OF PARAM CGR THIS. CHND 
Goa eats 14 000010 001244 BICB (Re), fo OPFLGS ;CLEAR 24 SECT 

we bleese 022737 000026 001212 CHP 2b, F FORMAT j CHECK 1 THAT IS CORRECT 

GSue 1552p reeset 000010 oo1244 ee 8SECT20, OPFLGS SNOPE = SET THE FI 

4247 cleere 108737 001666 46S cea SBHOR ;SANE DRIVE SWITCH SET? 

4 1ee74 112768 77777 VB #1, (RS)+ INSERT DRIVE NUM 

4250 OL 1 boieee cLRB SAMOR *CLEAR SAME DRIVE SWITCH 

se 01308 113768 001176 42§: MOVE ORIVE, (RS sINSERT DRIVE NUM PARAM 

4 le3l2 11 001244 43$: MOVE OPFLES, Re "INSERT OPERATION FLAGS 
be a. ESE 

ig3e 1 1G 0732 001665 i518 OFELAG Test OFFSEY’ FLAG SET 

4258 pis3se 01 001256 MOV LOFFST,(RS)+ | ; INSERT OFFSET VALUE 
4e69 Dies 1 001665 CLRB GEFLAG CLEAR OFFSET FLAG | A 
4261 Oise 013725 001200 44$: MOV CYLNUM,(RS)+  ; INSERT CYLINDER NUMBER 

4262 O1 005300 45$: DEC RO ‘DEC PARAM NUMBER 











uses pt g3e0 hee 001202 ADVE FReNUM (RS)+ RSERT “tRRCK NUMBER PARAM 
biS3ee Ai3cke fees see UMBER 


4 l BEQ 50S XIT 

uses 1 30 113728 001204 MOVE SECNUM, (RS)+ ed RI Pb NUM PARAM 

2&8 3 DEC EC NUMBER 

HE pois 001206 MOV Bho. (RS)+ if ee SBSH COUNT PARAM 

12376 Oe37e7 001702 o4el2e2 CMP ; TEST IF READ DATA COMMAND 

4 012404 1903 BNE oye "NO = BRANCH 

4273 012406 013737 001206 001254 MOV ar con ELSE STORE WORD COUNT FOR DATA COMPARE 
012414 905724 SoS: TST (R4)+ *SET UP NO ERROR RETURN 

O1e416 000636 SR ss 

4277 ee ee GRE BEE ere ee 


4578 ‘STIL OUTPUT TEST 
4379 i ENTRY : Fan ul ,OTRTE 


URN: Rie Rae ERROR rer 


Pe 9 
Be 
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usea pens + eee S WHICH FILE IS TO BE PUNCHE (SOURCE OR OBJECT) 
4e8S is b: Ge THAT FILE FAs VALID. CObE 
4286 t# 3. Fe ore OF PaaYe 
4287 1% 4: PUNCHES THE HE STOR Boe eace ry INCLUDING: 
4298 * THE ING PUNCHED (SOURCE OR OBJECT) 
4289 +# 8° Te SIZE OF 
4290 :# C$ WHICH OF THE "ther TCEFINED TEST PATTERNS HAVE 
429} 2 BEEN DEFINED 
4pg5 :% D. ALL OF THE ig seams TEST T SPECIFIC PA PARAMETERS (ORIVE, 
4293 * # CYLINDE DER, TRACK ERATION COUNT, ETC.) 
4294 14 S. CHECKS WHICH DEER DEF INED TEST PATTERNS HAS BEEN 
439 1 DEFINED AND PUNCHES T Pat 
4295 = # : T oR OBTECT FILE 
iSag F 5 SHELLLLLALELLELELALALERLLELLRALA LAE ERLEARL RAE RAL ALAA RELL LAE RES 
4999 012420 OTRTE: 
4300 012420 01004 RO, -(SP) sPUSH RO ON STACK 
4301 Ole4ee 010346 * (SP) PUSH R3 ON STACK 
4302 Ole4e4 010546 MOV R5,-(5P) PUSH RS ON STACK 
4303 Ol2426 004737 004666 JSR PC’ SBSCN ;BUMP R1 TO NEXT PARAMETER 
4304 O1e432 10571 TSTB ss (RL) 31 TEST IF PARAR PARAM NULL 
4305 bles 1 BEQ 2 H TO ERROR 
4306 012436 121127 000117 CMPB ss (R11), #°0 TEST re BRRORE TER IS "0" 
4307 Diet 00101 BNE 2s 
4308 01 1 001235 TSTB ©—-: VLDOBJ TEST IF to OBJECT CODE 
4309 012450 001523 BEQ 2i$ san T 0 EXIT FOR ERROR 
4310 Dicube Ot ae 001174 MOV #"OF , PUCODE T OA 
4311 O01 rl MOV TR,R3 INTER( END. OF FILE) 
4312 Ol 1 SUB SOF ILE,R3 LENG FILE IS DIFFERENCE 
4313 O1 G0041e 3$ 
4314 Oley 001234 2s: TST8 © SFEMP T SOURCE FILE EMPTY 
| ase {5¢00 12797 3123 001174 MOV ace PUCODE Pat PUNCH Wi CODE TO S 

dat pt Sepe 1 Baeeae MOV of TR.R3 tGET ADOR OF ERO OF SF+ rats} SER PTY) 
4318 012512 163703 001710 SUB IBUFPT,R3 ‘DIFFERENCE IS SOURCE FILE LENGTH 








4 cra. l 


i me ee ee ee ee renee. 
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4350 Suse2e Qies00 DOTioS ~ eB RET ADDR OF STRT OF STORED PAB 
te . 4 

aie] Oiseee 1e7Gs Sootee ny Hee Ra iT PUNCH. COUNT 

4355 pisese BP 3734 23S ’ i PeRoR G 

4324 012540 012705 001237 MOV #PATXDF , RS “GET ADDR OF PAT DEFINED SWITCHES 

4325 bigsw4 108728 TSTB ss (RS) + sTEST PAt X DEFINED 

4326 012546 00140 BEQ 4g sIF NOT BRANCH, ELSE 

4327 012550 012703 000100 MOV #100,R3 :SET R3 FOR PUNCH COUNT AND 

4328 012554 612700 001262 MOV #PATK, RO *GET ADDR OF PATX 

38 Mees bow43” 012752 ISR R4, PUNCH ‘PUNCH PATTERN X 

ee Ges ie? et tan TF er eh Ee, gs 

4333 01 01 901368 MOV #PATY,RO :GET ADDR OF PAT Y AND 

4334 012576 012703 0001 MOV #100,R3 *SET PUNCH COUNT 

4339S Oeb0e 004437 012752 ISR R4, PUNCH *PUNCH IT 

4336 012605 yeaa 23$ 

4337 012610 105725 cs: TSTB = (RS) + ;TEST PAT 2 DEFINED 

4338 Oleble S140? BEQ 3 IF NOT, BRANCH. EL 

0 Glee lems Geol my opal? ser paitcounne 2 

4341 Wee atten 012752 JSR RAOPUNCH ;PUNCH PAT 

4342 012630 012724 23% ‘ERROR RETURN 

4343 Ol2b3e 105738 6S: TSTB —s-_ CRS) :TEST RANDOM PATTERN DEFINED 

4344 012634 O01 BEQ 7§ *IF NOT, BRANCH. ELSE 

4345 01 012703 000100 MOV #100,R3 SET BYTE 

Hab biSpae 1 001562 MOV #PATR,RO :SET ADDRESS OF RANDOM PA 

4347 01264 004437 012752 JSR R4, PUNCH :PUNCH RANDOM PATTERN 

Wags prSees piesa 34 73 cae UMOFILE. RO ERR ORORRESS OF OBS FILE 

4350 b Seen eee 1174 043117 CMP PUCODE, #"OF ‘TEST IF CODE SAYS OBJ 

4351 O1 001402 BEG *IF €Q, RO IS CORRECT. ELSE 

4352 Bt SEB 013705 001710 MOV IBUFPT, RO *LOAD RO WITH ADDR OF SOURCE 

4353 012674 O01 001250 8$: MOV PUFLSZ.R3 :SET PUNCH COUNT 

4354 012700 bow 012752 JSR R4, PUNCH *PUNCH FILE 

4355 012704 O1 235 *ERROR RETURN 

4356 012706 TST (R4)+ ;SET NORMAL RETURN 

4357 12710 000414 30S :G0_TO RETURN 

438 ierie 104400 002624 20% TYPE 42 YDPAR *TYPE INVALID PARAM 

4360 bie7eo 104400 002764 21$ TYPE si ;TYPE NO OBJECT CODE 

d2be OiS7e8 rer 00 003015 22: rire sHOSRC ;TYPE NO SOURCE CODE 

4364 34 tet ati 003203 23$: TYPE PUERR ; TYPE PUNCH ERROR 

4366 bie7ag yeticn e58: MOV tR4) RY :SET ERROR RETURN 

4367 Ole742 O01 MOV (SP)+,R 3;POP STACK INTO RS 

4368 bien 1 (SP +R *:POP STACK INTO R3 

4 i 126 (SP)+°RO *:POP STACK INTO RO 

4370 012750 O00204 RTS RY » RETURN 

mia $s PTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT ETTTETETTTT ECCT TTT TEST TT | 

4 S8TTL PAPER TAPE PUNCH ROUTINE 

4373 3% NTRY: 

4374 + RETURN: RTS RY ERROR RETURN 








11 * } 





PAPER TAPE PUNCH ROUTINE 

4375 RTS R4+2 NORMAL RETURN 
4376 S STHIS ROUTINE WILL PUNCH THE NUMBER OF HAPS INDICATED BY THE VALUE 
4377 : #IN R3 FROM THE MEMORY AREA POINTED TO 
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DZR6RB. CMB ERT 
i378 g% : caninnumameetnokebanenniianbtonthenndkenenbammenbiabel heat 
4380 012752 042777 009100 166752 PUNCH: BIC #000100, aPTFSR RESET INTERRUPT opNaBLE 
4381] dier60 777 100200 166744 1§: BIT #100200, aPTPSR :TES FOR ERROB QF READY 
uae i aoe eet ie $L OOF UNTI ERROR x r : HE pROn we 
4334 biErre 100 og 166736 MOVB (RO) +, 2PTPDB LOAD BYTE aa i 
4385 012776 DEC R3 DEC BYTE 
4386 013000 001.367 BNE 1$ LOOP IF MOR oO PUNCH 
4387 013002 TST (R4)+ >SET GOOD RETURN 
4388 013004 000204 RTS ;RET 
4389 013006 011404 20$: MOV (R4) RY *SET ERROR RETURN 
4390 913010 000204 RTS RY T 
4391 ,; HUME ESH SHEE RESEROREERDEREDEEEOTDEEEEEREEEESEEOOESE 
4 TTL INPUT TEST AND INPUT STRING ROUTINE 
4393 :% ENTRY: JSR Ry, ITRTE OF ISRTE 
4394 * RETURN: RTS ERROR RETURN 
4395 a RTS Ruse NORMAL RETURN 
4397 S STHIS ROUTINE HAS TWO ENTRY POINTS. THE ENTRY AT ISRTE SETS THE 
4238 sECHRIN F LAG. 
4400 jHEIRST THE STORED PARAMETERS ARE BRE READ IN. THE USER DEFINED 
4401 ATTERN FLAGS ARE CHECKED. If PATXOE OF Is SNOT 0, 10 190(8) 
w05 bah “BYTES, Dae BERD BND STORE Din PATY: ETC 2 NOt 0 PA CFERN Z. 
4404 THEN CHECKED F SF AND THE NUMBER OF BYTES 
| 4405 SIND CaTED. IN ati ORB IN THE APPROPRIATE 
| 4406 Ree ANEN? Inettec ten TO THE PATTERN 
| 4407 INDICATED IN PA 
| 4408 e DUSSETESLOUSEDEESSGOUSEESEEEEORUERERSUEORENEEEESEOSENELEEEEEO 
| 4410 013012 152737 000001 001663 rere, BISB #1, CHNFLG ;SET CHAIN FLAG 
| w4il 013020 ITRTE: 
| 4412 013020 o1004 MOV RO, -(SP) ;;PUSH RO ON STACK 
| $413 013062 010346 MOV R3,-(5P) >:PUSH R3 ON STACK 
| 4414 013024 910546 MOV RS, -(SP) >:PUSH RS ON STACK 
4415S 01 3026 01 001174 MOV #PUCODE, RO sGET ADDRESS OF STORED PARAM 
4416 Ol 01 MOV #66, R3 :SET NUMBER OF BYTES 
4417 013036 004437 013336 ISR RY, READ *READ PARAMETERS FROM TAPE 
44] 01 204e O1z314 20$ “ERROR RETURN 
| HH 13044 1270S 001237 HOV. BPATXDF, ,RS $651 Ao OF paTD DEFINED FLAGS 
| 44el pt 3068 ae BEQ 1$ “BRANCH IF sf ENED ELSE 
Es Bass clare anu ry Bet iy Fur ean at 
| yy Bt S0e4 37 Ol JSR R4, ROCONT READ oh Ba 
| 4425 013070 013314 20$ ERROR RETURN” 
| 44 13076 5726 1S: TSTB 3s (RS) + TEST PAT Y DEFINED 
/ Wy 1 1 BEQ es *IF NO, BRANCH. ELSE 
| 4428 013076 012703 000100 MOV *SET BYTE COUNT 
4429 013102 012700 001362 MOV sonny Bo SET FOR READ INTO PATY 
4430 013106 37 013374 ISR R4, ROCONT *READ IN 
| 
| 
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se psaeadunscotesescapedusunsueussceeasouansssoussucennseeeueneeus 





s ERROR RETURN 
; TEST PAT Z DEFINED 
-IF Note eet ELSE 


igeT 
T FOR ae INTO PAT Z 
: READ IN PAT Z 


RET URN 
TEST RANDOM PATTERN DEFINED 
ELSE 


; COUNT 
;SET FOR READ RANDOM PAT 
;READ RANDOM PATTERN 
ERROR RET 
SET NO SOURCE SWITCH 
T_ADOR OF OFILE 
TEST IF CODE IS OBJECT 
:BR 4 NO, ELSE 
:GET FILE SIZE 
3ADD IN START OF FILE ADDRESS 


;CORRECT RO AND 

;SOURCE FILE TO BE READ 

CLEAR VLDOBJ CAUSE SOURCE IS NEW 
LOAD R3 WITH ADD OF SOURCE BUFF 
see SIZE OF SOURC 

;QTORE END OF SOURCE CODE ADD 
;CLEAR CHAIN FLAG 

;GET Sit OF DATA FILE 
AD FILE 


ERROR RETURN 
;GET PATTERN SELECT INDEX 
GO TO BUFFER (WITIALIZE 


;TEST CHAIN FLAG 
;IF CHAIN FLAG SET GO TO RUN 
:SET NORMAL RETURN 


; TYPE READER ERROR 
sGLERR CHAIN FLAG IF READ ERR 
;SET ERROR RETURN 


;;POP STACK INTO RS 
33POP STACK INTO R3 
33POP STACK_INTO RO 


;RE 
Den HaHHEHHEHEEHE 


ERROR g Mp 
NORMAL RETURN 


4431 013112 013314 2uS 
wise 013114 105728 23: S78 (RS)+ 
qua Bt 3148 Road 000100 MOV #100,R3 
4435 013124 012700 O0146e MOV #PATZ. RO 
He 913130 pou 013374 JSR R4, RDCONT 
44 131 13314 205 
W438 013136 105715 38: STB (RS) 
wae feats f° 703 000100 MOV 0,R3 
4441 O13146 012700 001 MOV #PATR. RO 
444s 013152 bow 013374 JSR R4, ROCONT 
4443 013155 013314 20$ 
4444 13160 52737 000377 001234 4S: BIS8  #$#377,SFEMP 
4445 013166 012700 034434 MOV #OF ILE ,RO 
4446, 131 3787 001174 043117 CMP PUCODE, #” OF 
444? 13i'6 1 BNE S$ 
4448 013202 013737 001250 001712 MOV PUFLSZ, OFPTR 
4449 013210 060037 901712 ADD RO, OFPTR 
4450 013214 O00415 BR S$ 
4451 013216 013700 001710 8S: MOV IBUFPT, RO 
4452 013222 105037 001234 CLRB  SFEMP 
4453 013226 105037 001235 CLRB - VLDOBJ 
4454 013232 010003 MOV RO,R3 
4455 013234 063703 001250 PUFLSZ,R3 
4456 013040 010337 001246 MOV R3, SFPTR 
4457 013044 1 001663 CLRB = CHNFLG 
4458 013250 013702 001250 cs: MOV prise R3 
4459 913254 004437 013374 JSR RDCONT 
4460 13260 013314 20S 
4461 Ol 113737 001236 013274 MOVB saver 6$ 
4462 13270 004437 020536 i JSR RY, ESB! 
wes aes 1 001663 TSTB  CHNFLG 
4465 013302 001402 BEQ g 
4466 013304 004437 010030 JSR R4, RURTE 
4467 013310 005724 73: TST (Raye 
4468 013312 OO040S BR 
4469 013314 104400 003217 20S: TYPE OeerR 
4470 013320 105037 001663 CLRB sPRERE 
W474 013324 011404 MOV (R4),R4 
4472 013326 30S: 
| 4473 013326 012605 MOV (SP)+,R5 
| 4474 013330 012603 MOV (5P)+,R3 
, 4475 013332 012600 MOV (SP)+°RO 
4476 013334 000204 RTS RY 
4477 co EXELL E SELES LSE HHS KRE XLS RRR EERE ERSLALEE 
4478 ‘ABTTL PAPER TAPE PUNCH ROUTINE 
4479 % ENTRY: JSR RY, READ 
| 4480 i RETURN: RTS RY 
4421 ii RTS R442 
ues sATHIS ROUTINE READS THE NUMBER OF BYTES INDICATED IN R3 AND 
wed ii #STORES THEN IN CONSECUTIVE MEMORY LOCATIONS STARTING 
/ 4M 
| 
ae 













nat 013336 
4489 013344 
4490 013350 


wae 013360 


mar 013362 
4494 013365 
4495 013370 
4496 013372 
4497 013374 
4498 013400 
4499 013406 
4500 013410 
4501 Bisite 
4502 013416 
4503 013420 
4504 Bi sics 
450S O134e4 
4506 013426 
4507 013430 
4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 es 
4881 013850 
4522 Te 
4524 Bae 
4525 013544 
4526 013546 
4527 013550 
45e8 013554 
45e9 013556 
4530 013560 
4531 O13S6e 
4S3e 013564 
4533 

4534 . 
4535 013566 
4536 

4537 

4538 

4539 

4540 

4541 

4542 
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77 





settee 166362 READ: BIC #000100, aPTRSR 





eat 27 ( 
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;CLEAR INTERRUPT ENABLE 


l WSTART: INC a :SET READE BIT 
100200 166350 WLOOP: BIT #100200, JPTRSR TEST IF ERROR OR DONE 
BEQ WLOOP *LOOP 
BMI XREAD ‘GO TO ERROR EXIT IF ERROR 
166342 MOVB SPTROB, (RO) HPP itp DATA BUFF E 
BEQ WSTAR 0 GO READ NEXT 
TSTB = (RO) + 0 
DEC R3 COUNT THAT CHARACTER 
166326 ROGONT: INC aPTRSR *SET READER GO BIT 
100200 166320 ROLOOP: BIT #100200, JPTRSR : TEST FOR uBREOR OR DONE 
BEQ RDLOOP LOOP I BITS SE 
BMI XREAD IF BIT 1S SET GO TO ERROR 
166312 MOVB § aPTRDB, (RO)+ *ELSE STORE BYTE READ 
DEC R3 DEC BYTE COUNT 
BNE RDCONT IF NOT ZERO 
Ist cRH)+ jSET NORMAL RETURN 
XREAD: MOV (R4) RY SET ERROR RETURN 
RTS * RETURN 
; HENTRY: ISR R4,ESPM 
3% <MESSAGE> 
*#RETURN: RTS 
#THIS ROUTINE PRINTS THE MESSASE FOUND IN THE OBJECT CODE 
FOLLOWING THE JSR 10 ESPM. AFTER THE MESSAGE IS PRINTED R4 IS 
*#ADJUSTED TO SKIP OVER THE MESSAGE CONTENTS. 
j HROUTINES CALLED: 
is TYPE 
Tika |-+ tiie 
001116 ESPM: INC LINNUM s INCREMENT PSUEDO LINE COUNT 
001232 001714 CMP IICNT, CNTSTR :CHECK IF FIRST PASS? 
BNE $ NO, SKIP PRINT 
001722 TST LPCNT1 ;TEST IF IF LOOP COUNT HAS COUNT 
BNE 2s YES - DON’T PRINT MESSAGE 
013546 MOV PY, 1S GET ADDRESS OF MESSAGE 
“* TYPE :TYPE MESSAGE 
001171 TYPE SCRLF TYP CARRIAGE RETURN 
2S: TSTB 3 3—s«sERD + TEST FOR NULL (END OF MESSAGE) 
BNE 2s ;LOOP IF NOT THE END 
TSTB sR) sTEST FOR SECOND NULL 
BNE 3$ IF ONLY ONE NULL, EXIT 
TSTB 3s (R4) + nue PAST 2ND NULL 





T@eQUL @ MAY BE PRESENT TO 
RTs INSURE WORD ALIGNMENT 


R4 
© JHE HEHEHE HEHE 


ah TTL OMMON DRIVER CALL 
sae SR PC DRVCAL WITH RS POINTING TO ACTIVE PARAM BLK 


RTS 


# 
;*THIS ROUTINE CLEARS THE DONE FLAG, CALLS THE DRIVER WITH 
;*THE ACTIVE PARAMETER BLOCK, AND CALLS THE WATCH DOG 
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ea vaRuer 


| ee f DRMSEee eS & 
fo totatotoretetetetatotay 
‘ Rens 


SRee 
anKg 


Bt 


000207 


667 
604 
S2 


fo 
Seo 


1 
023422 
001667 
000400 


Be0000 


001667 
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000014 


sRTIMER. 


SIT THEN LOOPS WAITING FOR “DONE” (INDICATING AN INTERRUPT 
sautTH OR WITHOUT ERROR) OR ais re FONT RORLER READY 
F THE NO CHECK BIT IS SET 
:#BLOCK). WHEN EITHER OCCURS THE ROUTINE RETURNS TO 
; #THE CALLER. 


T+ file 1-1" 11-11-10 hb 
BAVCAL: CLRB sCLEAR DONE FLAG 
ar RS,1$ GET PARAM BLOCK ADDRESS 
ISR PC;C. INIT ; CALL DRIVER 
1$: WORD ARAM BLK ADDRESS PARAMETER 
23: ISR PC, W.WTCH CALL TIMER 
TSTB © DONE sTEST TAF bone SET 
BNE 3$ INT OCCURRED, OPCOMP. 
BIT BNOCHK, P. PRSTCRS}- Free IF NO CHECK OPERATION 
ay Saas Re sNO CHECK Ase AbDRESS : a 
TSTB = RKCSit GEL R KBR READS 
BPL 2s iNOT READY, LOOP 


RT 
ee 
‘aBTTL ERROR FREE RETURN FROM DRIVE 

-¥ENTRY JSR ERRFRE ATH RS POINTING TO ACTIVE PARAM BLK 


aT URN RT 
THIS eure SETS THE DONE FLAG AND RETURNS TO 
tSTHE INTERRUPT HANDLER. 

Leuseeneenssaeaseaseeineaeaseayvenveeesnyeaeesseneeescentest 


ERRFRE COMB DONE ;SET DONE FLAG 
peeeeestadaae feeeassaepreeeiv ists anereeeeesssaananeeeeessss 


$8 DRIVER (DRIVE ERROR) 
#ENTRY JSR PC, DRVERR WITH RS POINTING TO ACTIVE PARAM BLK 
HARE TURN RTS PC 


tSTHIS ROUTINE IS CALLED BY THE DRIVER WHEN AN ERROR 
;#OCCURS IN THE SUBSYSTEM OPERATION OR WHEN A TIMEOUT 


HALL pues yores ERROR REPORTS ARE GENERATED IN THIS ROUTINE. 
Hi! ERROR REPORTS WILL CONTAIN: PREVIOUS TION 
;* 


OPE 
SOPERATI HON FAILURE IREORRT TON 2 TAKEN FROM THE 
T OPERATION INFORMATION 


pHIS TAKEN FROM OTHE ICCKVE BLOCK 


tSTHE WORD IN LOCATION 72 OF ML peeve BLOCK IS 
ise Foun I OED FORE THe ca 10 THE. 
j DRIVER BNO TELLS ee sero, GROUPS OF 
;*DATA IN THE PARAMETER BLOCK is BERTINENT TO THIS 

; ¥OPERA TON, THIS ALves THE REPORT TO BE CUSTOMIZED 
j HAND SPECIFIC FOR THIS ERROR. 


EACH BIT IN THE PRINT CONTROL WORD INDICATES THAT A 
;*GROUP OF WORDS OR BYTES IS OR IS NOT TO BE INCLUDED IN 








- NN  eeee—eEEEeEeEeEeEeeeee—————————eeeeee eee 
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OZRERB.CNE ERROR RETURN FROM ORIVER (DRIVE ERROR) 


4599 ;#THE REPORT. IF SET THAT GROUP IS INCLUDED. THE PARAMETER 
ht iiss POLLO —* TO PRINT CONTROL WORD BIT ASSIGNMENTS ARE 
wens 3% PARAMATER BLOCK ELEMENT 

4B 3% oe EOE EE EERE OEE EE EER EEL @ 
4604 3% 0 WORD 2 

4605 3% BYTE 4,5,86 

ele 3% 1 BYTE 7 

460 3% WORD 10 & le 

4608 ;* 2 WORD 16 & 20 

4609 3% 3 WORD 22 & 24 

4610 3% 4 WORD 26 & 

4611 7% 5 WORD 32 

apis * 6 WORD 34 THRU 62 
4614 3 THE ERROR REPORT CAN BE ABBREVIATED TO THE FAILING 

4615 aL INS NUMBE HE DRIVE, AND COM S ee 

4616 3 SWI CH REGISTER O. THE’ REST OF THe ERROR REPORT 

4617 ;#I1S SUPPRESSES, THE OTHER ERROR REPORTING CONTROLS 

4618 : #ARE STANDARD 

4619 ieops  ASCI?’ CIDD/CURSENT OPERATION VicnioT eee 


503 ste PLINE: .ASCIZ /=CMND LINE NUM 7<15><12> 
0201 


4B20 013652 041412 051125 O4es22 AUROP: .ASCIZ <12>/CURRENT OPERATION: /<15)<12 
4621 013660 OS2116 O47440 O425c0 
4622 013666 O40S22 O44S24 047117 
4623 013674 O0647e OODDl2 
4624 013700 OS00ie O4eSe2 O44 PREVOP: .ASCIZ <12>/PREVIOUS OPERATION: /<15)<12> 
4625 013706 052517 020123 050117 
4626 013714 O5110S OS210i 047511 
4627 013722 035116 O0S01S 
4658 0135727 Ol2 OSO101 O46120 APRES: .ASCIZ <12>/APPLICABLE REGS:/<15><12> 
4629 013734 041511 041101 042514 
4630 013742 OS1040 O43S505 035123 
4631 013750 005015 000 
4B32 O01 O12 O40520 O40S22 PARMGYN: .ASCIZ <12>/PARAMETERS GIVEN: /<15><1a> 
4633 013760 oO42515 04 051522 
4634 013766 O04 053111 047105 
4635 013774 006472 O00012 
4636 914000 Do1i1¢ 041125 OS4S23 SSTO: .ASCIZ <12>/SUBSYSTEM TIMEOQUT/<15><12> 
4637 014006 052123 04 052040 
4638 014014 O46511 047505 1 
4639 014022 005015 000 
4640 014025 012 052523 OS1S02 SDETER: .ASCIZ <12>/SUBSYSTEM DETECTED ERROR/<1S><12> 
Hou O14O3e 051531 042524 02011 
uB42 O] 042504 042504 052 
4E43 | O14N46 Ove105 o4e440 O5ile2 
4644 014054 051117 ooSso1S 
4B4S O14061 075 
4646 O14066 
4647 014074 
4e4B 014102 
4649 014103 104 O44S22 O42526 FDRIVE: .ASCIZ /DRIVE=/ 

4650 014119 000075 

4651 Oivile O46503 O42116 000075 FCMND: .ASCIZ /CMND=/ 

4652 014120 OS4 047114 051104 FPARMI: :ASCIZ /CYLNDR SECTOR TRACK OFFSET / 
453 Oiuleb 020040 O42523 052103 : 


051117 020040 051124 











RKGLI/RKOG USER DEFINED TEST 
DZRERB. CNB ERROR RETURN FROM DRIVER (DRIVE ERROR) 
weSS OL4I42 O41S01 020113 920040 
eSB O141S0 043117 051508 o52105 
ue57 014156 O20040 O00 
uBs8 014161 102 O44101 O20040 FPARNe: . 
e598 O14166 O20040 O41040 046101 
BBO 14174 O20040 O20040 053440 
Woes Byaspe RRS g30t8s oeco4o FPARNS 
WEES Biuste geonss parede pSria9 
Weed 014220 OS0040 O20040 dD0040 
WEES 14226 041527 O20040 O20040 FPARMY: 
WEBER 014234 020040 920040 
WEE? Ol4e42 OS0040 40 OO 
WEEE 014247? 104 O20101 O20040 FPARMS: 
MBBS 014254 O20040 042040 O20103 
4 uEsy aad Set ° etka ween FPARME 
upsets ioe G28t8 oosan FpRano: 
473 014302 020040 O42040 020123 
4B74 014310 O20040 O20040 o40440 
MEoe BiWSES BATONS BBeuED pouDte 
i 
ue7B 014 0040 O30S02 20040 
4679 O14346 O20040 OPO040 031101 
4B80 014354 020040 O20040 O20040 
| ees Bliss Sauce Geom peo 
| #583 01437 Geo049 Ge00N O31502 
4E84 O14404 20040 020040 O20040 
WEBS 14412 041505 047520 
4E86 14420 O201e3 041505 027503 
4E87 O14426 O40S20 O06S24 O00012 
| 4688 O14434 O42012 OS2101 O20101 FDATC: 
4ugB9 O14442 047503 O5011S 051191 
| WB90 O144S50 O20105 051105 020122 
491 O1445— 097117 0 051117 
| 4692 014464 020104 009 
| Mp3 O1447 075 N7507 ONe117 GODAT: 
| 4684 014474 053440 051117 Oo6So4 
| 4885 O1¥02 Op0012 
496 O14504 041075 042101 OS344O BDDAT: 
| 4697 O14512 051117 OosS04 oo0012 
| Mp9 1450 OEI41e O4O5e4 O5e5e4 ScERR: 
| 4699 14526 020123 047503 oSnl1S 
| 4708 OI4594 051101 020105 051105 
| 4701 O14542 047522 OO6S22 O0012 
| 4702 OI4SS0 051475 04054 052524 STWONM: 
| 4703 O14556 020123 O42127 047040 
| 4704 O14564 O46S25 OoS0IS O00 
| 4705 014571 O75 o40SI5 3 MSKLAB: . 
| 4708 014576 005015 
| 4707 O14E01 | O12 o475 507 RCERR: 
| 4708 O14606 OS2ie3 OSi1 1440 
| 4709 O14614 46517 O40S20 OYeSe2 
| 4710 14622 42440 OSilee 051117 
| 


r 


MACY11 27(732) 


Q3-NOV-76 22:40 PAGE 104 


ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


ASCIZ 


-ASCIZ 





/BAH BAL WDC/ 


7051 cse / 
/WC BA / 
/DA oc / 
eR oS AD BO/<15>< 12> 


8Al Bl Re Be A3 B3 $ 






SECC/POS ECC/PAT&<15>< 12> 


(12>/DATA COMPARE ERR ON WORD / 


7=G00D WORD/<15><1le> 

7=BAD WORD/<15>< 12> 

<12>/STATUS COMPARE ERROR/<15><12> 
7=STATUS WD NUM/<15>< 12> 


/=MASK/<159< 12> 
(12>/REGISTER COMPARE ERROR/<15><12> 





08 


RK611/RKOS USER DEFINED TEST MACY11 27(732)_ O3-NOV-76 22:40 PAGE 105 
DZRERB. CNB ERROR RETURN FROM DRIVER (DRIVE ERROR) 
4711 014630 005015 000 
471 Bt te O42Se2 020107 REGLAB: .ASCIZ /=REG NUM/<15><12> 
i464 16 00651 BOT hE 
4714 O14646 pes OS3111 pepete HARDER: .ASCIZ /DRIVE HAS HARD ERROR/<15><12> 


123 040524 O525e4% SCNCLR: .ASCIZ /STATUS CHANGE NOT CLEARED/<15>< 12> 


1 4 
S7ee O147e4 O42105 005015 





4723 014731 116 020117 651104 DSCNOT: .ASCIZ /NO DRIVE STATUS CHANGE/<15)< 12> 
47204 014736 053111 020105 052123 
4725 014744 052101 o5iSe5 o41440 
4726 014752 O40510 043516 00650 
4727 o14760 000012 
4728 O14762 O42523 055111 O42105 STILSZ: .ASCIZ /SEIZED OTHER PORT/<15><12> 
4729 014770 0474490 O44124 051105 
4730 014776 O50040 051117 006524 
4731 015004 O00012 
4732 O15006 047125 054105 042520 BADATT: .ASCIZ /UNEXPECTED ATTENTION/<15)><12> 
4733 015014 052102 042105 O40440 
4734 015022 952124 047105 O44Se4 
4735 015030 047117 O0S015 000 
4736 015036 EVEN 
4737 015036 DRVERR: 
4738 015036 910046 MOV RO, -(SP) ;;PUSH RO ON STACK 
4739 015040 010146 MOV R1,-(SP) ?;PUSH RI ON K 
4749 15042 010246 MOV Re, -(SP) ;;PUSH Re ON STAC 
4741 O15044 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 
4742 O15046 O10446 OV RY: =(SP) PUSH R4 ON STACK 
4743 015050 105037 001671 CLRB sa RPSWIT :CLEAR REPORT PASS SWITCH 
4744 015054 152737 000377 001667 BISB #377,D0NE :SET DONE FLAG 
4745 O15062 032777 OO02000 164050 BIT #SW10, ISWR :BELL ON ERROR? 
4746 015070 O0140e 1$ ?NO - BRANCH 
4747 015072 104400 001164 TYPE $BELL - "RING BELL 
4748 015076 032777 O20000 164034 1S: BIT &SW13, ISWR : INHIBIT ERROR REPORT? 
47439 15104 001407 BEQ 6S 
4750 015106 013702 o2334e - MOV RKBAS, Re ;GET BASE 
4751 bisiie O12762 100000 oc00c0 MOV #CCLR,RKCSI(R2) ' + RESET IE AND DO CONT CLEAR 
4752 015120 000137 015524 IMP 365 ;JUMP TO EXIT 
4753 015124 105737 023240 StS: STB  CEFLG ;TEST CONTROLLER ERROR FLAG 
4754" 015130 00105¢ BNE 3S “SKIP TO TYPE OUT 
4755° 0151 65 000010 O00014 BI #UEXATT,P.PRST(RS) ;TEST UNEXPECTED ATTENTION 
4756 015140 001405 BEQ sss 
- 4757 o1siie 1044 015006 TYPE BADATT ;UNEXPECTED QTTENTION REPORT 
4758 0151 12765 00044 000064 MOV 44, PRTCON(RS) “SET PRINT CONTROL TO LIMIT REPORT 
47539 15154 032765 000020 OO0014 SSS: BIT #DRVHRD,P.PRST(RS) ;TEST DRIVE HARD ERROR 
“4760 015162 001402 BEQ 0s 3NO = 
4761 015164 {104400 O14646 TYPE HARDER "HARD ERROR REPORT 
W762 015170 032765 OOO040 OCOOO1Y SOS: BIT BDRVDSC,P.PRST(RS) ;TEST STATUS NOT CLEARED ERROR 
4763 b15176 001402 BEQ S1$ :NO = 
4764 015200 104400 014675 TYPE SCNCLR "REPORT STATUS NOT CLEARED ERROR 
4765 015204 032765 OO4000 OO0014 S1$: BIT BNODSC,P.PRST(RS) ;TEST NO STATUS CHANGE 
4766 Ol5el2 oOL402 BEQ c23 “NO - BRANCH 


ee 
‘ 7 
| ‘ 


: “NOV=7 22:40 PAGE 106 
lee 
peeede rs ERROR RETURN 
DERSRS. CMS 


ROR 
Ses “REPORT No. BrOTUS CHANGE ERRO 
TYPE pbevsze, P.PRST(RS) : ioe: brane “io 
ures Bresso dseres 940089 ood ree $20,P. past: BS) TES] TIPEOL 
4768 1402 Suter, N 
ices SiSeee oeres Sicies ooCOLY SHS: Bir $5 ;TYPE SUBSYSTEM TIMEOUT 
yr? Oise Gse7es - TYPE Y Ten coe TCH) 
se aoe isan) ovboo zs: Fyre SpeTER eA at) WE PRINT atk 
4774 Ol C4400 014025 33 CLR -(SP) 
WY LINNUM, ‘PRIN NT GE 
dere. BIBS acente 001116 Tres PLINE TYPE +. BEGINNING OF PARAM BLK 
4 04404 . RSRO DRIVE” N 
dere Biesee iowa O140EL 198: HOV «ASR $TYPE “DRY BYTE OPERATION 
sri bleere To#0) 014103 COM Re SPRINT FIRST LI 
W762 O1e300 Dosibe TYPE, SCRLE eT SMO IME <COMMAND) 
aces Steet an 001171 TYPE »PCMND ;PRINT 2ND LINE ¢ 
isee blero fenoe Seaiie FPRINT oe + at tron 
| Sbee Bless ipvars 171 Bir kent TO,P.PRST(RS aoe 
767 01831 qse7es 000100 00014 SEQ BF eeaonc Fe BNO Base TEST) 
wes Bt se 16120 oss: YenB RPeMIT pS AEA SET 
| ie ae O10 000001 163566 a 308 ie PRINT CONTROL WORD PRINTED 
j { 
| a Bieses boidee ie PRTCON(RS) ,R3 ie IF GROUP 0 ra TO 
4754 2652 178: #3,R3 SKIP TO PRINT TEST 
cs bibse4 ae BOS WN Tee rae Cran 
| 7x 013372 polooL ar} ee Stn cantied a 
| ¥eoe Bless Bha0oT 2 a TYPE GROUP 0 HE ra 
| $801 915400 TYPE ie TES 
| eee DIOR Pha400 014129 46S: et ee TYPE GROUP 1 HEADINGS 
le F : GROUP 0 
| 480s OIEMl 104 O14161 uss: TYPE 8170 Ra ;TEST IF MUST PRINT wi 
| apo? et is neat poae! BEQ AY ‘Baie PINE. CEYCINDER) 
ARS LEW Gonaae FPRINT. Pee ine tee otoR) 
ec PRINT. HPRINT LINE (TRACK), 
«dBi Bleaae Apes FPRINT PRINT LINE SINTER FOR GROUP 1 
mat rev ncaa et toot 
Ste ee en ae a as eee 
“Bie {eeu g Bi :HAKE”SURE_R2 Sn "0D HI) 
| HEI OUSMeN oco0de Bis Sire SPRINT LINE (BUS 
| “E18 {ease be2768 000001 FPRINT ;Re SAYS WORD 
| 13 CL 
1$472 1044 
| ues Bea? 005002 


ee 
oe 
ee ee 
ccrtttee 


oe 





coco 


a ee a te ee eee OS. 


Pe | USER DEFINED TEST 11 
OZRBRS.C ERROR RETURN FROM ORIVE 


BS eS 


ee iS gt 
Hey Beg oe 
Stead 9047. 016670 
pies! 
Steed Sea 
fie 
tes 73? Olb622 
O1SS44 1044 013727 
015550 o32703 
015552 000004 
HES BSS ou 
a ro 
Be Bere 
bieeos 104400 014247 
Bis Baers 
biseie rea 014270 
Reese 04400 BO1171 
ie 
BES BEE coon 
bere ip 
pees nce 000010 
Rises TL 
Bee! BES cose 
tse ios 
bi eeee ooco20 
biser4 001405 

ire te7a) ooze 
biB70N 104413 
Bleves Geeres oooo 
teat 052703 

bieres i : 001171 
015730 {4400 001172 
015734 032703 000100 


ee ee ewe 


MACY11 27( 
S (oR 
6$: 


308: 
3é$: 


318: 


40$: 
41$: 
42S: 


43$: 


7$: 


9$: 


108: 





;PRINT LINE (BUS ADD Ld) 
SPRINT LINE (WORD COUNT) 


; TEST 2ND PASS 
;NO. - BRANCH AROUND E 
;PRINT LOOP EOUNT 


:sPOP STACK INTO RY 
330 OP STACK INTO R3 
::POP STACK 
;;POP STACK 
360 7 TO SWR LOOP CONTROL 
tTYPE “APPLICABLE REGS" 
*MAKE SURE Re SAYS WORD 
‘TEST IF MUST PRINT GROUP 2 


;TYPE GROUP 2 HEADINGS 
;TEST FOR GROUP 3 


;1YPE GROUP 3 HEADINGS 
TEST FOR GROUP 4 


;1YPE GROUP 4 HEADINGS 
‘TEST FOR GROUP S 


; TYPE GROUP S HEADINGS 
3 TEST F MUST PRINT GROUP 2 
SET TABLE PTR TO GROUP 2 VALUES 


we 


MUST PRINT GROUP 3 
E PTR TO GROUP 3 VALUES 
LINE (WORD COUNT) 
LINE (BUFFER ADD) 
F MUST PRINT GROUP 4 
TABLE PTR TO GROUP 4 VALUES 
T ADDRESS 

(DESIRED TRACK/SEC) 
SPRINT LINE (DESIRED CYLINDER) 
TEST F MUST PRINT GROUP 5 
SET PTR TO GROUP 5 VALUE 


SS 
;PRINT LINE (ATTN SUM & OFFSET) 


BAMSAB BME Ss 
S 


4+ Nem 


mmnomo 


2 
22 
a. 
a 


~O 
xz 
os 


732) O3-NOV-76 22:40 PAGE 107 
IVE ERROR) 

FPRINT 

FPRINT 

TYPE LF 

TST abttirr 
BEQ 31 

ISR PC, PRLPCT 
MOV (SP)+,R4 
MOV (5P)+'R3 
MOV (SP)+,Re 
MOV (5P)4'R] 
MOV (SP)+.R 
JSR PC, SWCONT 
RTS PC 

TYPE APRES 
CLR Re 

BIT #81T2,R3 
BEQ 40$ 

TYPE FPARM3 
BIT $BIT3,R3 
BEQ 41§ 

TYPE FPARMY 
BIT kBIT4,R3 
Beg 425 
YPE FPARMS 
BIT bg1T5, Ra 
Fee , FPARMG 
TYPE 
BIT kBIT2,R3 
BEQ 7§ 
MOV 5, RO 
ADD #P:CS1,RO 
FPRINT 
FPRINT 
BIT #81T3,R3 
BEQ 8$ 
MOV RS, RO 
ADD #P:WCR,RO 
FPRINT 
FPRINT 
BIT #81T4,R3 
BEQ 9$ 
MOV RS, RO 
ADD #P’DTS,RO 
FPRINT 
Bit we #81TS,R3 
’ 

Bo tS 
MOV RS,RO 
ADD #P. ASOF ,RO 
een SCRLF 
1eE ‘ 
BIT bBIT6,R3 


em re ee ee ee ee, 


;TEST IF MUST PRINT GROUP 6 





“~ 





ee nee + ee wee 


RK&IL/RKOS USER DEFINED TE MACY11 27(732)_ O3-NOV-76 22:40 PAGE 108 : 
DoREAS. CHE ERROR RETURN FROM DRIVER (DRIVE ERRORY f 

4879 015740 4 BEQ 15S :NO_= BRANCH Us 

4889 12549 see oo0004 MOV #4, RY ee COL COUNT TO 4 

4881 015746 104400 014275 TYPE FPARM? ‘TYPE GROUP 6 HEA o1yGs 

1882 1 MOV S,RO S T T TABLE POINTER 70 GROUP & VALUES 

l oc0034 ADD #P°ER,RO :5ET S 

4684 015760 1049413 11$:  FPRINT ‘PRINT COLUMN 

4885 b15/be 25304 DEC RY :DEC COUNT, LOOP UNTIL ZERO 

4ee6 015764 O01 BNE 11$ 

4887 15766 04400 001171 TYPE SCRLF 

use 01 12704 000010 V 10, R4 ;SET COL COUNT TO 10 

weiss g1s778 104400 014332 TYPE _—, FPARME ‘TYPE GROUP 7 HEADINGS 

4890 ot 04413 12$:  FPRINT PRINT COL 

489] 016004 DEC *DEC COUNT, LOOP UNTIL ZERO 

4892 016006 001275 2s 

4893 016010 194408 00117 , SCRLF 

4894 016014 Me 0011 TYPE LF 

4898S 016020 023727 OO1116 O00001 15S: CMP CINNUM, #1 ;TEST IF FIRST LINE IS ERROR 

489% 016026 19i4el BL 18% :IF YES BYPASS OND PASS (PREV OP) 

4897 016030 1 001671 TSTB = RPSWIT :TEST IF SECOND PASS IN REPORT 

4898 016034 0010 1 YES - EXIT 

4899 016036 105137 001671 COMB © RPSWIT :SET SWITCH 

4900 O16042 012705 002142 MOV PARNO, RS :SET RS TO PARAM 0 

4301 D104 001670 TSTB sis THAT RIGHT? 

4 1 1 16 YES - SKIP 

4903 GIs054 0 g02230 _ MOV SPARMI.RS -NO_= SET TO PARAM 1 

4304 O16060 1 1 16S: TYPE abrEV *TYPE “PREVIOUS OP” HDR 

4308 O16066 000137 015272 IMP 19$ GO PRINT PREVIOUS OPS 

916072 105037 001671 185:  CLRB  RPSWIT "RESET 2ND PASS SWITCH 
4308 b16076 0 00214 MOV #PARMO, SET RS TO PARAM O 
16102 1 001 TSTB ;TEST PB SWITCH. WAS THAT RIGHT? 

4810 016108 001402 BEG 20$ sYES ~_ SKI 

4911 016110 01e70 002230 V SPARM1, RS ;NO = set R RS TO PARAM 1 

4912 016114 000137 015520 208: IMP °GO T 

4$13 e scuucuuesesuuecesauceucastsucedsousconeesansencenanseseestaseee 

Holy ETTTTTTTTTTSTTTTETET TTT T STE T TTT T TTT KLEFRERELELSSELSREAAAERSLELLE 

4316 ‘an READ RKEL 1 AND "ee RERORG REGISTER ROUTINE 

4312 j #RETURN: RTS 

4919 4TH S INE RE 1 T THEM INTO THE 

4320 DUR en ook TT THEN ren Teies | Re ie me % eRe us Tus REGISTERS 

sen ? F Bate “DRE RE GISTERS, A MES IS PRINTED TO ALERT THE 

Wee5 tUSER. T ie ive ree US IS’NOT VALID. 

BoeMy s SPELEEREEEEARESEX RE ERRE SEEKER TASS RERERSK EEL ESSEERESE RESALES RSRESEE 

4936 d16120 READRG: 

uae? Bieise piDode MOV Re’=(8P) SSPuSH Re ON STARK 

4958 pi ptss sine MOV Re, ~(SP) He R3 ON STAC 

4929 Ol61e6 O1 002142 MOV #PARMO, RS 5 GE ADDRESS OF Pi 

4930 lbize 1057 001670 TSTB PaSH : i1S PARMO PRESENTLY SELECTED? 

4931 0161 1 BEQ * YES = pklP 

4932 016140 O1 002230 MOV #PARM1,RS “ELSE GET ADDRESS OF PARM 1 

4933 016144 010500 gS: MOV RS GET PARAM BLOCK ADDRESS 

4934 016146 013702 02334e2 MOV RKBAS , R2 GET RK BASE ADDRESS 





a) 
SHAMS RPC ho HURT RAT gee OE 
4935 





16152 ? 0 #P.CS1,R0 ;BUMP BASE TO REG RETURN ENTRIES 
436 Diese bree. Maat MOV KCS1(Re), (RO 3GET CSI 
4339 DIEIEE iEeeD SoboRe NOY ORKACERGD tte” EGET GoeO COUNT 
ws Bieize Gibsep RV RKBRRE), (00+ GET BUEFER RODRESS, 
4941 pipa7s ptPssS MOV BKDC CRS)’ (ROD ET Beetle CYLINDER 
we fine Bless mY eens tune A eeeok 
4544 Beste Beso MOV RKDS ( 3, (Rs ?RET STAT 
4945 Dibeee BoSOgS CLR P. PRST(RS) * CLEAR 
uo4h Ol 1 MOV #6$, A. ABNL :SET TIME OUT RETURN 
4947 016234 01 MO RKCSe(R2),R3__ GET CS2 TO STORE DRIVE NUM 
Hag bibe4O 1 MOV SCCLR,RKCS1(R2) :SET CLEAR CONTROLLER 
4949 01 BIC a] R3 CLEAR ALL BUT DRIVE NUMBER 
4350 Olbese 050362 BIS Ra, RKCSE(R2) : INSERT DRIVE NUMBER 
ygee : Ot PSEB 1iS3be 38: MOVB R3, RKMRL (RE) ;SET DESIRED STATUS BYTE SELECT 
4953 016264 01 MOV #1:RKCSI(Re)  ;D0 DRIVE SELECT 
49ety bibe7e v1 MOV W. SEC, Wl. ORV :SET UP TIMEOUT DURATION 
4955 01 152737 BIS8 8377,W. TIME :GIVE WATCH DOG SOMETHING TO TIME 
4956 016308 rate 1S: BIT BRDY,RKCSI(R2) ;TEST READY 
Wee0 ase ri 023422 ISR PC, W. WICH *CALL HIM 
4959 016322 032765 OOC100 Oot BIT #CMDTO,P.PRST(RS) “DID HE TIME OUT? 
4960 016330 001033 BNE c$ sYES- TYPE WARNING AND EXIT 
ise bless Gases ees nooo 2s PET besa cre) eect Goi FOR ERROR nN 
. 1 1 BMI *YES - SKIP 
4964 016342 O37762 00000! 00012 BIT #DRA,RKDS(R2)  ;TEST IF DRIVE AVAILABLE 
4965 016350 0014 BEQ c§ *NO = PRINT WARNING 
4366 ot 01 90034 MOV RKMR2(R2),(RO)+ :STORE BYTE A 
497 01 01 MOV RKMR3(Re),(RO)+ :STORE BYTE B 
4968 01 000003 CMP R3, #3 :TEST IF WORD 3 RETRIEVED 
4368 Oibseb 00 BEQ 4g :YES = I 

1 INC R3 : BUMP 0 NEXT WORD NUMBER 
497} 016372 BR 3$ G0 GET IT 
4972 016374 O01 000177 000064 4S: MOV 8177, PRTCON(RS) ;SET PRINT CONTROL 
4973 O01 1 015036 23352 75: MOV #ORVERR,A.ABNL ;RESTORE DRIVER RETURN 
4974 ey 5 1 MOV (SP)+,R3 >:POP STACK INTO R3 
4975 O164l2 ot MOV (SP)+'R2 ::POP STACK INTO R2 
4376 OibHt4 1 - Hoy (SP)+, RO *:POP STACK INTO RO 
4978 016420 003234 S$: TYPE STNTVD ;TYPE WARNING ABOUT STATUS VALID 
4979 Uesed 1 000077 O00064 MOV 877, PRTCON(RS) :DO NOT PRINT STATUS W 
4980 0) CLR -(SP) PUT NEW PS ON STACK 
498] O16434 012746 O16442 MOV #64S, -(SP) *:PUT NEW PC ON STACK 
1382 1e440 a RTI *:POP NEW PC AND PS 
4984 O1E442 000757 BR 7$ 
4985 .SBTTL ERROR RETURN FROM DRIVER (CONTROLLER ERROR) 
4586 s#ENTRY: JSR _PC,CONERR WITH RS POINTING TO ACTIVE PARAM BLK 
4987 j #RETURN: RTS PC : 
4aB8 Be #THIS ROUTINE IS CALLED BY THE DRIVER WHEN AN ERROR 
4999 *#OCCURS WITH THE CONTROLLER ERROR BIT SET. 





cen ee ee A ES ES ES ED A A 
; 


} 
! 
| 
) 
j 
? 





RKBLI/RGSE USER DEFINED TEST = MACYI1 e7(732) O3-NOV-76 22:40 PAGE 110 
DoReRS. CHB ERROR RETURN FROM BALVER (CONTROLLER ERROR) 


se o1eNa4 0 Spe snipe pea rasa oe mpeena canteen so mee NT, 
ox bese Gone BY AB) eB A ON ST 
4995 bieNe0 136037 o0g377 001667 BISS § #377, DONE iBET D 
ua BieueN 901402 — Brg seu, aur hoe al 
4998 O16 104400 001164 TYPE SBELL *RING BELL 
49958 te 162440 18: BIT kSW13, ISWR : INHIBIT PRINT? 
5000 Ol 1024 BNE YES = SKIP TO EXIT 
5001 a 013709 0233% Mov E.CONT,RO GET ERROR WORD 
ep05 1651 rane 014025 TYPE SDETER 
opp He BE S0 EH gr Rl SHIFT WORD LEFT TO TEST BIT 1S 
one ited rent = ace IF C RRR GO REPORT ERROR 
5007 016522 Oe0le7 00040 CMP Ri, #40 ‘TEST IF ALL BITS TESTED 
008 DibSe6 do140e BEQ GO REPORT NO ERROR ENTRY 
e010 Olees | DOOTFI ee hee Pp os 
5011 biEeay Bei a? 027242 O16544 9S: MOV ETABL(R1),10$  3GET ADDRESS OF ERROR MESSAGE 
eos pieeus Apogee ee ADDRESS OF MESSAGE GOES HE 
gi tes bere weg, de RT Te 
5016 piPEeE ooso35 000001 o23240: — BISB 9#i,CEFLG cee CORT ROLLER ERROR FLAG 
5017 01656 004737 150% ISR PC’ DRVERR : 
Bs tiie tle ee ae ee ey 

DibB00 Ole7b2 OO004O oOnoI0 - MOV #SCLR; RKCS2(Re) j CLEAR CON 

016606 012762 O00010G o00000 : MOV SIE .RKCSI(Re)  ;3SET IE AGAIN 

16614 004737 Olé622 : ISR PC, SWCONT :GO TO SWITCH CONTROL 

Dlb620 000207 7 * RETURN 


RTS 
A iiiiiiitiiiiiiiiiittitiiiiitiiiiiiiitiititiitiiiiiiiiiieisy 
88TTL SWITCH CONTROL T 

“ENTRY: JSR , 

: #RETURN: RTS IF NO LOOP OR HALT 


MOV SLPERR, (SP) IF LOOP ON ERROR 
RTS PC 


HALT IF HALT ON ERROR 
oa ot TIRE TO EXECUTE NEXT COMMAND OR LOOP ON 
5 


pseuuneseunsesebeuseduevensvonssesuspersuoveusesseuqueneneuneans 


O1bbE6 HOV #64, -(SP) tPUT NEW PC ON STACK 
;;POP NEW PC AND PS 


Perey Chinen aciisisuini tails 
3 


: 


016622 032777 100000 162310 #SW1S, ISWR TEST HALT ON ERROR 
016639 1401 : 1$ 

oieea e777 001000 162276 1S: Bi #SW9, ISUR TEST LOOP ON ERROR 

VES Ase? 37 GGG001 001103 BISB #1,SERFLG SET ERFLG TO LOOP ON TEST FOREVER 
SS $3716 OO1110 MOV SLPERR, (SP) *FUDGE RETURN FOR LOOP 

OL CLR (SP) ::PUT NEW PS ON STACK 

016664 


a + em 





% 





SRR ee PTO 


S047 O16666 
016666 000207 


snes 


sac 
232 


SSERUrEe ER 


3 


00$702 
601403 
OOSO46 

1 112016 
016742 000401 
16744 012046 


16746 104401 
016750 104400 


= 
or 
a 


SSR CTC heett id SERS 


001722 


3? 001724 


001722 


737 033466 
2637 016722 


003415 


003540 


09 
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64S: 
23: RTS PC s RETURN 
: jLHHHUSSORRESEREESHEELERROEEEEE EE HHH SURE REEEEHEHREDAEEEEE EEE 
SBTTL LOOP COUNTER IF NOT ZERO ROUTINE 
ieaasceneeanennsenscessenusensteneeesteesseastesnesgseagteastess 
bhi ect: LPCNT1 TEST IF LOOP COUNTER ZERO 
oR ZERO - EXIT 
ist LPCNT2 
1$: MOV #LPCNT1,-(SP) | ;GET ADDRESS OF LOOP COUNTERS 
JSR PC, J8$DB2D :CALL CONVERSION 
HOV (SP)+, 2 *STORE RESULTS FOR PRINT 
2s: . WORD “RESULTS GO HERE 


TYPE LPLABL 
Pc 


RTS 
HHHHHSE SC HH HEB EH HEHEHE HEHEHE HEHEHE HEHEHE EOE 
TTL ERROR REPORT PRINT ROUTINE 
+ FPRINT (TRAP CALL):WITH Re A SWITCH SUCH THAT 
:# IF NON-ZERO THE OCTAL_ TYPE 


i# uT IS A BYTE AND IF ZERO IT 
2% :WITH RO CONTAINING THE 
+ ADDRESS OF THE DATA TO 
+ % YPED. 
#RETURN: RTI 
im iat eer tf anit are 
REPRINT: TST Re ;TEST IF BYTE OPERATION 
BEQ 1$ H IF NO, E 
CLR =(SP) *CLEAR WORD ON STACK 
nove (R0)+, (SP) *MOVE BYTE FOR PRINT ON STACK 
1S: MOV (RO)+,-(SP) ;MOVE WORD ON STACK 
2s: TYPOC ;TYPE BYTE OR WORD 
TYPE  ,SPACE2 


RTI RETURN 
seeeeenserereceserentnessesslecaenenecaeaenecienenecacaecenys 
‘ee EXECUTION 


eatin 1 
if Breet? us LOAD MBER 


RETURN: "RTS. RY 


+ STHI TINE FIRST GOES TO THE DRIVER PARAMETER BLOCK TO CHECK 

i4IF Pug ST ATU ALREADY BEEN RETRIEVED AND STORED THERE. IF 
T HAS, THE ST ATUS IN THE TER BLOCK IS USED in THE 

iStest "IF STATUS HAS NOT BEEN STORED, A DRIVE SELECT 

*#SPECIAL IS ISSUED TO THE DRIVE TO GET ALL THE STATUS 


;# 2 ge ONLY TESTS THE BITS THAT CORRESPOND TO ONES 
amy THE MASK if a tie MPARE OCCURS THE NUMBER OF THE 
HEENG THe WARK BRE RE TED CTED VALUE, THE RECEIVED VALUE, 


[are rel caatiasnlautotastskaniiesiieieeansenteestiaessiomamaanes 





017610 -=17610 

1 002142 ESssc: MOV #PARMO, RS ;SET_RS 19 BLOCK 0 
eae ied INC L INNUM INCREMENT LINE COUNT 
108777 DO16b TSTB = PBSW OC TEST PARAM BLOCK SUIT CH 
0014 BEQ 13, SIF BLOCK O SELECTED eee 
Ole 002230 MOV OCK 
001000 


Ree 


- 
2 


‘ELSE SE 

000014 1S: SIT SPeCVAL B. PRST(RS) ;TEST STATUS VALID BIT 

NE US VALID, GO TO TEST 

000141 000001 MOVB - SROSTAT.P.CMND(RS) :SET TO DO READ STATUS 
013570 JSR PC, DRVCAL GO’ TO DRIVER 

2s: MOV (RAS RON :STORE STATUS WORD NUMBER 


Sue 
8 


Sonn SaE 8 


ONO0OO0000 


b= b= bb = b= = Poh pe 


ay 


- 
mw 
ae 
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ne pet COMPARE EXECUTION 
5 0 004737 
1? 2 0124GG 
cl DiZtS 012401 MOV (R4)+°R1 ; STORE EXPECTED VALUE 
51 17660 Sieve MOV (R4)+>Re :ST 
5116 617662 ASL RO :SHIFT ST WO FOR CORRECT INDEX 
1 b17bb4 062700 o00040 ADD #P.ADOD,RO "ADD BLOCK OFFSET FOR STATUS WORDS 
5118 017670 O60S00 ADD RS. RO :COMPUTE STATUS WORD ADDRESS 
5119 017672 011003 MOV (RO) ,R3 sSTORE IT 
$120 017674 005102 COM Re °C MENT MASK 
218 b17676 020 BIC Re, R1 *CLEAR UNTESTED BITS IN 
{ 17700 peoeas BIC Re, R3 sEXPECT ED & RECEIVED VALUES 
eis pi i ratty Sr a OuAL gt were 
etsd pie Ne oo2000 161224 BIT #SW10, ISWR ‘BELL ON ERROR? 
$126 017714 001402 BEQ 4§ :NO - BRANCH 
5127 Dizeig 104400 001164 TYPE SBELL 
5108 22722 032777 O20000 161710 4S: BIT BSW13, aSWR ; INHIBIT PRINT? 
5129 Dy773D 001033 BNE S$ YES = BRANCH 
5130 O1773e 1 oooo0s SUB #6,R4 *BACK UP RY TO PARAMETERS 
5131 017736 0)37% 001116 MOV LINNUM,-(SP) | ;PUT LINE NUMBER ON STACK 
Size 017742 1D8Ss TYPDS “TYPE IT 
5133 017744 104400 014061 TYPE  ,PLINE ‘LABEL IT 
S(34 017750 i2v¥OD 014520 TYPE SCERR *TYPE STATUS COMPARE ERR 
5135 017754 O16 MOV tR4)+, -(SP) *GET STATUS WORD 
5136 017756 104401 TYPOC TYPE IT 
S137 017760 1 D14SS0 TYPE STWONM TYPE LABEL 
S138 017764 Ole“6 MOV tR4)+, -(SP) GET GOOD WORD 
£139 017766 104401 TYPOC i TYPE IT 
6(40 OL 104400 <<4467 TYPE GDDAT TYPE LABEL 
Sai Gre «011046 MOV RO), -<(SP) ;GET BAD WORD 
5142 017776 10440; TYPOC :TYPE IT 
6143 20000 104400 014504 TYPE BODAT ‘TYPE LABEL 
5144 O20004 012446 MOV (R4)+, -(SP) GET MASK 
/ 5245 020006 104401 TYPOC TYPE IT 
| SMB o2ac10 014571 TYPE MSKLAB ;TYPE LABEL 
' 5347 020014 004737 016670 JSR PC, PRLPCT 
Si4e 020020 004737 01 S$: JSR PC, SWCONT 3G0 TO SWITCH CONTROL FOR LOOP 
5149 g20024 04 TS *RET 
5150 : > SHERLEEATERERSERERREEEEEUEEEEESEGEEEEEEEEEuEEEEEEEEEEENEEEEDEES 
, $181 ‘AOTTL REGISTER COMPARE EXECUTION 
i §152 s#ENTRY: JSR ESREGC 
5153 + i (REGIST RY NUMBER? 
2154 is (EXPECTED VALUE? 
155 <MASK> 
2156 {ARETURN: RTS RY 
) 
‘ €158 S STHIS ROUTINE DIRECTLY ACCESSES THE DESIRED RK6!1 REGISTER AND COMPARES 





S14 ;#IT TO THE EXPECTED BLUE ONLY THE BITS THAT CORRESPOND TO ONES 
160 ixIN THE MASK ARE COMPARED. 

4 TOS ARTE Ww cress Bt TS IMIEE SB Olt 

64 t eREGISTER. SINCE THE RECTSTERS Re ON WORD pRiES. “they VALUE 
: b5 i MUST BE SHIFTED LEFT ONE BIT BEFORE IT IS useD Nee THE’ I 

67 SIF A COMPARE PRODUCES AN ERROR, T ISTER NUMBER, THE EXPECTED VALUE, THE 
d be jAvALUE READ, AND SHE MASK Re BRINTED OM M4 CONSOL 


70 - SOUGROERCRRERRDNRNURMENRNORRERNEANRNNENERENNENERNeNEnEsENneNeen 
(01116 szeueee INC LINNUM ; INCREMENT PSUEDO LINE CNT 


no 

za 
si 
a 


22 
¥ 


023342 


a 
s 
<= 
fa56 
w 
og 
IO =k & 
a3 
om 
m" 
1 
w 


3s 

ri 
ES 

3 


PBsaNadzyg 
2 
fe 
= 
fe 
2 
S 
c 
m 
io 
= 
2 
m 
6 
s 


Ut CUR UR UNI UT LTT UI UIUTU OIL UT UIT Ut nnn on riUrint 
ee 
A 
A 
RS 
ow 
tnd 
OQ 
fe 
a 
. . o> . 
m 
oy 
S 
| 
m 
w 
o 
m 
o 
w 
| 
—) 
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OZR6RB. CNB REGISTER COMPARE EXECUTION 
i 





és fap RT Pe Mi Peon, eran 
ef Gg277? 002000 16104 BIT sSW10,aSWR ;BELL ON’ ERROR? 
Be S074 IO44O0 | ODLI64 Wee SeeLL RING BELL” 
t e 
83 100 ieee vei 161032 3S: BIT kSW13, SUR ett PRINT? 
BS petie peeves ge OSE. RY REPOST TaN G4 FOR REPORT DATA 
= bedi 14 Gisrie cate HOV [eANUM, -(SP) sur Cine NUMBER ON STACK 
85 feotse iowa piueot TYPE 'REERR s LABEL IT 
Ne01e6 1 14601 T : G COMP ERROR 
tes Denisa | Gaauge WyPOC UR), EL pete MER 
19% 020136 104400 014633 TYPE GLAB *LABEL IT 
SS Deoite 012446 MOV thse -(SP) *GET GOOD WORD 
5798 020144 104401 TYPOC ‘TYPE IT 
5199 Deo ie 104400 014467 TYPE GDDAT *LABEL IT 
152 010346 MOV R3, (SP) *GET BAD WORD 
2s Peete, “GaeeeO1HsOY TYPE’ .BODAT SOBEL TT 
( SK Spies vets (R4)+,-(SP) GET MASK 
4204 Ge0ib4 104401 TYPOC :TYPE IT 
S20S Debits 104400 014571 TYPE MSKLAB ‘LABEL IT 
BOB babi? 004737 016670 JSR eC, PRLPCT 
020176 004737 Olbbe22 2s: J5R PC, PC, SWCONT :GO TO SWITCH CONTROL FOR LOOP 
ee) 8 geese eoeees casement ssssneeeseecosnonnnsnsosssesseo 
| 5211 j#EN NTRY: ope : RUE. BATC. 
Sele OF WORDS? 
| Sel3 RETURN: RY 
! 5214 sane ROUTINE WILL COMPARE THE CONTENTS OF THE INPUT BUFFER 
} 
} 


t 
| 
} 
' 
| 
i 


RRSAL/ (GER 
Behe Oe 


oe 


3 


a 


: 


a 


3 


Oo 
— 


TER 


8 


=8 
eRe 


QEFINED TEST 
DATA COMPARE EXECUTION 


001164 
0000 


001116 


014061 
000012 


o0o0de 
014434 


001171 


014467 


014504 


020000 160540 
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;*#T0 THE CONTENTS OF THE OUTPUT BUFFER. THE NUMBER OF 
; HHORDS COMPARED IS SPECIFIED AS THE PARAMETER. 


SIF i 1) ait OCCURS, THE GOOD AND BAD WORD I 


HOLS PRUNTEDT OMY THEY FIRST 


; PRINTED UNESS ee ae! 
;*CASE ALL MISCOMPARES ARE 


WORD THAT MI £ RPARED fs 


ye we B 
S SET. 


Leaeantanneateaeaneaneesneseetiesveaneaeanveneeneeseeseenss 


éépat 
” mov RS, -(SP) 
INC LIANNUM 
MOV IBUFPT, RO 
MOV OBUFPT’ RI 
MOV (RY) +, Re 
CLR R3 
CLR RS | 

1S: CMP (RO)+, (R1)+ 
BNE 3 

4S: INC RS 
DEC R2 
BEQ 11S 

2S: BIT #SW10, ISWR 
REQ 
TYPE SBELL 

S$: BIT kSWe, ISWR 
BNE 125 
TST AS 
BNE 6$ 
MOV LINNUM, -(SP) 
TYPDS 
TYPE PLINE 

6$ CMP R3, #12 
BLOS «6s 3S 
BIT #SW1, aSWR 
BEQ 13$ 

3S: TYPE FDATC 
MOV RS, -(SP) 
TYPOC 
TYPE ,SCRLF 
CMP (RO) ,-(RL) 
MOV (R1)+)=(SP) 
TYPOC 
TYPE 
MOV thot, -(SP) 
TYPOC 
TYPE BODAT 

13$: INC R32 
BR 4§ 

11$: TST R3 
BEQ 14S 
BIT #SW13, SWR 
BNE 
MOV R3, -(SP) 
TYPOC 


::PUSH RS ON STACK 
j INCREMENT PSUEDO LINE COUNTER 
T OF INPUT BUFFER 
TORT OF OUTPUT BUFFER 
COMPARE COUNT 
‘ERROR COUNT 
:CLEAR COUNT FOR REPORT 
; COMPARE DATA 
“COUNT FOR PRINT 
:COUNT FOR COMPARE LENGTH 
EXIT = OK 
LOOP 
;BELL ON ERROR? 
;NO = BRANCH 
RING BELL 
; INHIBIT PRINT? 
YES = SKIP PRINT 
RRORS YET COUNTED? 
YES = DON’T PRINT LINE NUMBER 
sPUT LINE NUMBER ON STACK 
’ 


;LABEL IT 
;TEST FOR TO MANY ERRORS 
NO = SK EST 


;ERROR WORD POSITION 


; PRINT 

; RETURN CARRIAGE 

;BACK UP DATA POINTERS 
:G00D WORD 


TYPE IT 
‘bee LABEL ; 


;TYPE IT 

SLABEL IT 

COUNT ERROR 

te 4 al ERRORS OCCURED 
i CHECK IF INHIBIT TYPE OUT 


U 
‘pur ERROR COUNT ON STACK 
TYPE IT 




































RKBLL/RKDE USER D TEST _MACYI1 27(732) O3-NOV-76 22:40 PAGE 115 
Boptke ons DEMO PRRE EXECUTION 


S271 O20406 104400 003267 TYPE TOTMSC sLABEL IT 
Se7e de0ule pou7 ? 016670 JSR BC, PRLPCT 
O416 737 Olé6e22 12: JSR PC’ SWCONT GO TO SWITCH CONTROL 
E57) Dapuze 148: 
SS GeG4e2 012605 MOV (SP)+,R5 :POP STACK INTO RS 
3675 Den4e4 000204 RTS RY tRETURN TO OBJECT CODE 
so Susbbensseenansnieneusseubennelotenanantetsektanseinabanemenin 
5278 ‘eeTTL. REGISTER WRITE EXECUTION 
5279 sxENTRY: JSR RY, ESRW 
Soa 3% <REG NUMBERS 
5281 ie ALUE> 
t282 HARETURN: VATS RY 


SATHIS ROUTINE PLACES ie VALUE GIVEN IN THE REGISTER 
tSRGAINGT HRITS a AT "READ-0 IS pore ab f PR M3 T THE USER 
“aha BIT T CAUSING 


oP ty UNEXPECTED 
e289 


wp te kk i RR RR ae ae i A 
D242 WWS237 ON1116 beRu: INC LINNUM s INCREMENT PSUEDO LN CNT 
S290 O20432 012400 MOV (R4)+,RO T REG 
829 Ge0434 006300 ASL RO ALIGN RO (REGISTER NUM) FOR INDEX 
Sete 020436 063700 023342 ADD RKBAS, RO *COMPUTE ADDR=SS 
5293 020442 012410 MOV (R4)+, (RO) ;LOAD VALUE 
5294 OeD444 000204 RTS RY ETURN 
C295 "3 Tt fit ie lillie 
5295 ‘aSTTL STALL EXECUTION 
5297 ;#EN NTRY yen RY, ESST 
2638 <NUM OF MICLISECONDS> 
Beas {ARETURN: RTS RY 
5301 ieTHIs ROUTINE WILL DELAY THE PROGRAM EXECUTION FOR 


*THE TIME SPECIFIED. THE DRIVER WATCHDOG TIMER IS 
D FOR THE DELAY TIMING. 
we A BE MS FE NTE it ee 
5305 P0446 005237 001116 ig INC LINNUN s INCR REMENT LINE C 

Wea4S2 012737 000340 177776 MOV ;LOCK OUT ANY INTERRUPTS 

O246eG 012437 023420 MOV ate W.DRV *LOAD MS DELAY INTO TIMER 


5209 GeOkb4 112737 000177 o23404 MOVB #177,W. TIME FOG TIMER 19 THINK IT IS 
020472 010637 001704 MOV SP, TEMP2 : STORE STACK POINTER 
MOV #2$, A. ABNL >SET UP TIMER RETURN 
023422 1S: JSR PC, W.WTCH >CALL TIME 
3 Bspers 3 1 2S Bay 18. sLOGF oN aimee POINTER 
D705 1 giz? Tenge 023352 MOV sve, A.ABNL RESTORE ABNORMAL RETU 


2737 000000 177776 MOV ALLOW ALL INTERRUPTS” 
000254 Ru *RET 


RTS 
ee ee 


5304 
SM 
€307 
5310 
€31/ 220976 012737 Oe0Si2 0233Se2 
sale Gensa4 g0K7327 
14 
is 
526 
18 
$313 “SBTTL BUFFER INITIALIZE EXECUTION 





; XENT R4,E$B1 

3% EXECUTION’ LINE COUNTER CONTROL) <PATTERN> 
Bice — TS 
53e4 ;*THIS ROUTINE FIRST CHECKS LINE COUNT CONTROL AND IF A ONE 
pace jHINCREMENTS L LINNUM. 

;#. 


RK611/RKOE USER DEFINED TEST 
DZRERG. C: BUFFER INITIALIZE EXECUTION 


3t 
100002 
3? 
bess 
3792 


—OO 
oy 


= 
tu 


Ne 


Se 


8 


fy 
BRS 


8 


: 


S38 
Buy 


: 
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;#THE SELECTED PATTERN IS THEN GENERATED AND THE ENTIRE OUTPUT 
;*BUFFER IS INITIALIZED. 
Ts iasia~*=- alii 


1$: 


2s: 


3$: 


4$: 


S$: 


6S: 
7$: 


9S: 


10S: 


118: 





(R4) 
fin 


6 

Ri, #’D 

11 
ie 
R1,R3 


R1,#°E 
15$ 





NNUM 
GBUFPT, TEMPe 





Test cn IP COUNT TO BE INC. 


; AND STORE 

; THE LAST USABLE BUFFER LOC 

;D0 AGAIN FOR LAST BUFF ADDRESS 
; ER POINTER 


: RANDOM PATTERN? 


iter ADDRESS OF STORED PAT 
ieariy Ize WITH PATTERN 


;NO 
:GET ADDRESS OF STORED PAT 
G0 INITIALIZE WITH PATTERN 


:GET_ ADDRESS 
iB eh WITH PATTERN 


:GET_ ADDRESS 
GO INITIALIZE WITH PATTERN 
:TEST IF PAT A 


;1ST_ AND LAST WORD OF PATTERN 
30_WORD 


s OTHER 
;SET COUNT FOR OTHER 30 WORDS 
:PUT 1ST WORD IN BUFFER 

PUT IN OTHER 30 LOOP 


;PUT LAST WORD OF PAT IN BUFF 
560 — THRU BUFFER 


;NO 

+1ST AND ah WORD OF PATTERN 
OTHER 30 WORDS 

im aT TALLIZE WITH PATTERN 


AER sot rset OF PATTERN 
:GO INITIALIZE WITH PATTERN 
:PAT D? 


;1ST_AND Lor ie 
: OTHER alts AME 
:G0 wey Alize WITH PATTERN 








-“~ 
oO 
- 
io 


RERRERRERR 
pinsinas 


IISPERERB EA 


® 28 


—s 
rT 


GB & + bs bs bh be he bb = ph b= be he a 


SPSL LUSH ESKERSEVS 


She 


eH bd 2 ho bb Dh P= b= B- --  8 + 2h B= Pb 2 BR = sh mH b= b= b= b+ b= & = b= = 


UU UUMUMUUUUOUUUUUODUTUTUTUFUTOUIOTOTD | forsfororoforororofore 


furor 
e-2 bs 
£o 


012703 
hes 
l0iee 


ed 1 USER DEFINED 7EST 
DZ BUFFER IWVMALIZE EX 


000001 


oc0920 


{00000 
000020 


000106 


177777 
200021 


10c00 
000017 


@Q0107 
177777 
000020 


000020 


000110 


000991 
000020 


040009 
000017 


bh ee iRse) 


12$: 


138: 
14S: 


15S: 


1S$: 


173: 


18$: 
198: 
20$: 
els: 


22s: 


318: 


238: 


O3-NOV-76 22:40 PAGE 117 





RI. ise 


16$ 
8120000, R1 
#17,R0 
14s’ 

pe #’G 
#177777,R1 
Rl 







;BASE WORD FOR PATTERN GEN 
SET AL LOOP CN 

Lrg INTO BUFFER 
:1ST HALF ee ATED, EXIT 
;TWO OPERATIONS TO 

i CONTINUE THE PATTERN 

saeT 8 BASE ay SECOND HALF 
PUT WORD INTO BUFFER 


DEC CO 
‘PATTERN GENERATED, GO SPREAD IT 
:SHIFT FOR NEXT WORD OF PAT 


;LOOP 

:PAT F? 

;BASE Thy FOR PATTERN 
;SET COUNTER 

iPU oF Bren 


: 1ST HALE GENERATED, EXIT 
:SHIFT FOR NEXT WO OF PAT 


; SET aT FOR 2ND HALF 
:SET COUN 


GO MAKE USE OF PREVIOUS 
sBATTERN GENERATION OP. 
























;BASE WORD FOR PATTERN G 

;THIS SETS CARRY AND RESETS BIT O 
;SET COUNT 

aPur IN BUFFER 


sEXIT 1ST ad IF ZERO 
:SHIFT PATTERN 


‘L 
:SET 2ND HALF COUNT 
: SHIFT THE PATTERN 
‘PUT IN BUFFER 

DEC COUNT 

:LOOP 

:PAT H? 

s BORE WORD FOR PATTERN 
PUT IN BUFFER 


SEX IT_1ST ALE IF ZERO 
sSHIET PATTERN 


LAST WO GENERATED IN AGAIN 
iat Seat BASE FOR 2ND HALF 


e 





INITIALIZE EXECUTION 
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DZR6RB. CMB BUFFER 
5439 021220 oog7c4 BR 14 60. USE PREV GENERATE OPERATION 
s¥40 Deleee 120127 000111 us: CHEB R181 sPAT s Sank cana ea 
He rae bia 70} 1sssss 2s$: HOV BISEESS, RI iNioR Hie, ECE T re 
44 Bs tse “3 BR Eg’ ALL INES ALICE it WiTH PATTERN 
S445 G2i2e40 912700 ooDD4D 26$: MOV #40, RO SET COUNT 
S446 021244 Olelee o7$: MOV (R13+. (R2)+ PUT IN BUFFER 
447 Q21246 O20237 0017C4 CMP Re, TEMP2 * CHECK BUFFER FULL 
448 QOeleSe O01405 BEQ 30% ry XIT 
5449 021254 005300 DEC R : DEC’ COUNT 
E4SO 021256 001372 SNE 275 ;NO_= LOOP 
5451 021260 013701 0017¢6 28S: MOV OBUFPT,R1 ‘RESET R1 TO START OF 
‘ Susp ; OUTPUT BUFFER. FROM THIS 
5453 ‘POINT ON THE INITIALIZE 
BHd sPATTERN IS SPREAD THROUGH THE 
S456 021264 oO00765 BR 265 y iTG0P. 
021266 o002D4 30S: RIS RY ‘Ri 
E452 SSTETETETT TESTE TTT TTT T TESTS TTT TTT TECET TTT TT TTTTT ETE TTCTEST STS 
5459 88rT PARAMETER BLOCK SELECTION 
S460 SRENTRN: JSR PC, PBSEL 
Sel 3 #RETURN: RTS PC 
| 5463 S STHIS ROUTINE SELECTS THE 7 PBRANETER BLOCK TO BE USED IN THE 
/ S464 >¥NEXT OPERATION AND SETS THE PARAMETER BLOCK SWITCH ACCORDINGLY. 
| Sep j RS IS LOADED WITH THE PARAM BLOCK ADDRESS. 
5467 SIN ADDITION, THIS ROUTINE TAKES CARE OF INSERTING THE DRIVE 
5468 ¥NUMBER AND NO CHECK INDICATOR IN THAT PARAM BLOCK. 
| 5468 **#IT ALSO INCREMENTS THE LINNUM (PSUEDO CINE COUNT). 
S470 © ELLA AKEKARE ALLA KA LEAS LEAL LAA KKH AEA AEKA LASHER LAA AHA EKER SHAK AKE KE 
| §471 021270 005237 001116 BASEL: INC LINNUM ; INCREMENT LINE NUMBER COUNT 
6472 O2le74 012705 O0el4e MOV 3PARMO, RS :SET RS WITH PARAMO 
5473 021300 105737 001670 STB  PBSW :IS PARAMO TO BE USED NEXT 
5 old USED LAST) 
| 5474 021304 00/002 BNE 1 YES (PARAMI WAS SED AST 
£475 021306 012705 o02230 COV #PARML,RS ;NO_- T TO PARAM 
| 6476 Oel3l2 105137 001670 1S: COMB =s- PBSW *SET PBSW 
5477 021316 111465 000000 MOVB = (R4),P.DRVN(RS) :MOV IN DRIVE PARAM 
| 5478 O21322 105714 TSTB = CR) SHAS IT 8 DRI VE NUM 
| 5479 021324 190403 BMI 2 *NO? GO CHA 
| 5480 021326 112437 001176 MOVB  (R4)+, DRIVE YES? PUT iT IN PARAM STORAGE TOO. 
| 6481 021332 O00404 BR 3$ 
| S482 021334 113765 001176 OO0000 25: MOVB ORIVE,P.DRVN(RS) -GET STORED DRIVE NUMBER 
5483 021342 105724 TSTB. ss (RD + -BUNP RY 
| 5484 021344 005065 000014 3S: cLR pr PRST(RS) > CLEAR PROG STAT WORD 
S485 021350 132714 OoO0004 BITB #BAII, (RY) -TEST BAI INHIBIT SWITCH 
| $486 021354 001403 oo ae 4§ NOT SET, 
| 6487 021356 052765 100000 cconJ4y . BIS #OTBAII,P. pRST(RE) SET’ FOR. INHIBIT INCREMENT 
| C4e8 Gels64 132714 o00002 4S: BITB ——-#NOCK, (R4) TEST IF NO CHECK 
5489 021370 001403 BEQ *NO = aKIp 
| §490 (@21372 052765 ooo4o00 oo0014 BIS wNOCHK P.PRST(RS) ;SET NO CHECK 
| 5481 021400 142765 000020 000007 Ss: BICB B.CFMT,P.CSIH(RS) s CLEAR ae SECTOR MODE 
| 5492 21406 132724 000010 BITB WECT 20,(R4)+  ;WAS’ THAT RIGHT? 
|  &493 Oel4i2 001403 BEQ 6$ ‘YES = eK IP TO EXIT 
| 5494 O21414 152765 000020 000007 BISB  #B.CFMT,P.CSIH(RS) ;NO - SET THE 24 SECTOR MODE BIT 


a ee ee 





ee 
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DCRERB. CNS PRRAMETER SLOCKk SELECTION 


S495 Oei422 000207 gS: RIS PC ETURN : 
‘ rt camaboteusbactsebansedeseneletotonin takiadimebedbasendbelien 
5457 ‘bert UNIBUS INITIALIZE EXECUTE 

: #ENTRY: Eh ,ESUI 

s #RETURN: RTS Sa 


isTHIS ROUTINE EXECUTES A UNIBUS INITIALIZE 


eases 


jurtesacesnansonsnsssssassesssnsansassnssnsonsnenennsonensonents 


5504 o21424 ocosos itt} sUNIBUS RESET 
S505 S2l426 905237 O01116 am L INNUt HINGRERENT LINE NUMBER 
E B2i4se 00204 ATS TURN 
= TO TERE MRA ERA AN EE TS 
5658 “Sart SUBSYSTEM COMMANDS EXECU UTION 
5509 ;#ENTRY: JSR _R4Y,ESXX WHERE XX IS THE SUBSYSTEM CMND 
S510 ay am CHECK> <DRIVE> 
5511 t# YL NUM> OF OFFSET) 
a2is CTRBGK) «SECTOR 
ei4 EFRETURN: RTS 8H 
e516 iaTus HIS POUTINE HAS MANY ENTRY POINTS, ONE FOR EACH SUBSYSTEM 
5517 EAC H ENTRY IS SPECIAL IN THAT THE PROPER F 
518 iSeDoe cE PL INTO pANTO. THE PARAMETER BLOCK ALONG WITH T 
51 
zest a PRINT CONTROL WORD 18 PUT INTO THE LAST WORD (WORD 66) 
5522 #0F THE BLOCK. THIS WORD CONTROLS WHICH INFORMATION 
5523 :*IN THE T BLOCK IS PRINTED IF AN ERROR OCCURS. 
cooy :sREFER TO FOR A DESCRIPTION OF THE WORD AND 
:#THE RESULTING DATA REPORTED. 
i, MOVE SECA PREC IDTE EIR eee 
2259 021434 412705 900113 térc: Move SRECAL sRECALIBRATE ENT’ 
021440 012700 000104 MOV #104, RAY *REPORT FORMAT ERTRY 

£529 O21444 000137 Oee07e JNP ONEP’ 
5530 be1450 i 1 ESPA: MCVB &sPACK,R3 ;PACK ACK ENTRY 
£531 Oel 1 006104 #104, R0 *REPORT FORMAT 
€532 021460 137 022072 IMP ONEP 
£533 021464 it 0001 ESCS: MOVB sSUBCLR,R3 ; SUBSYSTEM CLEAR ENTRY 
5534 061470 1 900104 MOV #104, RO REPORT FORNA 

ate rts, 000176 ESCC 10v8 ORENCLR R3 CONTROLLER CLEAR ENTRY 
2238 Geieo4 é 08 000104 HOV #104, RO" REP ORT ESR 
2e3 ps iet 1 000101 ESDS: MOVB © sSELORV,R3 sDRIVE SELECT ENTRY 
5540 1B 1 000104 #104,RO _ TREPORT FORMAT 
zea 1504 11 000105 ESDC: MOVB &CLEAR.R3 sDRIVE CLEAR ENTRY 
eet3 1530 000104 8! 4RO *REPORT FORMA 
S645 021536 112703 000107 ESUL: MOVB  SUNLOAD,R3 ;UNLOAD ENT 
pete ai 612700 060104 MOV 4 4, RO * REPORT EORNAT 
c48 021550 112703 000111 ESSS: MOVB  sSRTSPL,R3 ;START SPINDLE ENTRY 
£549 021554 012700 O00104 V #104,RO REPORT FORMAT 
£550 21560 O00S44 ONEP 


ee couse ano <2 eee epee 





ee ee 





rin 


ee ea 
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obubin cine Satie inSDSDoeaaieoa teat esbboe nig ReYsscecghseng 
Pa a. 
BEER E E « ee 
: a: : 
Se Bee ee 
fi 8g 62 Gg ae «SS 408 ae SSSEEEEES ge aeees a 
SUE IN george erg ag emeeeeen yaeereg rou 
ae sre Magee geese saneetee Seung et 


sa deat itt het hetee het hea bate ae heme, bam ham, bam hak ean keen koa ban kom han an an ee ee re ee ee ee te ete ee ee eee 


SSSISSSSSSSSSSSISSSYSSSSSSSSISSSSSSSSssss 
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IGS SSIES SBE EOD PRA ASN EES 
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OZRERS. CNB SUBSYSTEM COMMANDS EXECUTION 


5607 ge207 004737 921270 ONEP: JSR PC, PESEL CET PB S516 GNMENT 
2076 110388 001 MOVB RSP. CHINO (RS) ;LOAD FUNCTION CODE 
5609 O22102 610065 o00054 GODRV: MOV " PRTICON(RS) sINSERT FORMAT WORD 
5610 Oe2i08 004737 01357 JSR PC; DRVCAL CAL DRIVER 
peli 022112 RTS RY 
1 grseetlfooaseensaneoscusalSoeerneonerneneesneee 
5613 sSTTL OPY TAP 
5614 HIS ROUTINE W at a ied A TAPE THAT IS IDENTICAL TO THE 
p15 APE BEING READ, EITHER SOURCE OR OBJECT. 
5617 022114 10441 conte, SAVREG 
€618 O2ell6 pierr7 900100 157602 BIC #000100, aPTRSR ;RESET IE, PTR 
5619 O22e124 042777 000100 157600 SIC #000100; aPTPSR :RESET IE, PTP 
5620 Oeel3se 095277 157570 INC OPTRSR ':SET READER E 
Sé2 02213 032777 100200 157562 1S: BIT #100200, 9PTRSR ;CHECK PTR DONE OR ERROR 
Sess Gosieg O01774 BEQ Ss INO - 
S623 02214 100425 BMI 20S ERROR - EXIT 
5624 022150 032777 1 157554 25: BIT #100200,aPTPSR ;CHECK PTP DONE OR ERROR 
5625 156 001774 BEQ 2s ?NO = LOOP 
Bab 169 004 BMI 30$ ‘ERROR - EXIT 
1 157540 cs: INC aPTRSR START READ 
5628 165 100200 157532 35: BIT #100200, 2PTRSR ;TEST DONE OR ERROR 
5629 022174 001774 BEQ 3$ *NEITHER - LOOP 
5630 022176 100411 BMI 20S ERROR - EXIT 
5631 022200 117777 157524 157526 MOVB  SPTROB ab TPB *MOVE DATA TO PUNCH 
2p35 022206 100200 157516 4S: BIT #100200,aPTPSR :CHECK IF DONE OR ERROR 
5633 Oee214 091774 BEQ 45 sNETTHER «LOOP 
2p32 p55646 ipOreo BR c$ D0 NEXT READ 
5636 Ocecee 104400 003217 20$: TYPE PRERR READER ERROR 
5637 Oe2e26 BR 40$ 
338 022230 104400 003203 308: fT , PUERR ;PUNCH ERROR 
O22234 104412 4O§: RESREG 
5640 O22236 005724 TST (R4)+ GOOD RETURN 
5641 Ceee40 000204 RTS RY T 
apis sa Mea Sererereeeraeseecrenerinneneseaeecececenaeaeaeeaenee 
a i BOUTINE HILL. BUILD FEROER EXPECTED TO BE FOUND 
' bt i#0N TH TPAC EN, N THE SecTb OR FIELD Dor THRITE: HERG HEADER COMMAND, is 
“647 :#5ECTOR gERO 5 UF it ae Oar part FERS 
ce48 tan 1 TRANSEERS Th AK IN PAT oH, ia 
5649 ;#HORDS OF PA By Ae THE HEADERS. 
SéS50 Oe sSearneateneroaretariisuatsauseacarsanteaveneraretestics 
6651 O22e42 104411 : SAVREG 
ope bS55eq Brena Bee COR tee ‘y OP ERR L BeRT eh Te BED BE USED AS FLAG 
5654 p5s5eq eat 000007 8178 ie es P.CSIH(RE) sTEST IF THAT IS RIGHT 
S655 Oceebe 001405 BEQ S$ “YES = SKIP 
556 Oeeee4 01 000024 MOV #24, RO *NO - SET FOR 24 SECTORS 
5657 022270 052737 001000 001702 BIS #6119. TEMP! 
013705 001706 S$: MOV oeur Pt RS sGET BUFFER ADDRESS 
ere 012401 MOV (R4)+,R T ev NUMBER PARAMETER 
5660 il MOVB © (RH) 4, Re . GET TRACK PAREMETER 
S661 022306 112403 MOVB (R4)4+;R3° - i eFT SECTER PARAMETER 
Seb2e 022310 001025 BNE 2s _. PIF SECTOR NOT 0, GO GETHDRS FROM PAT X,Y,2 BUF 








np ce ne ee en Ce OE eee 
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022312 ASL R2 sADJUST TRACK FOR CORRECT POSITION 
ebb Desi ASL Ro 
sib ASL Re 
56665 Oee 006302 ASL Re 
a eed 40000 Bs 6] goog R2 SET NO BAD waecTOR SITS 
556 pssas4 peg505 450988 815 1,Re SINSERT FORMAT BIT 
$670 022334 010103 18: HOV Ri Ba" : COMPUTE one 
B55338 DaDISM Bre ORR 
5873 Oees4e BIC R2,R3 
E674 344 BIS R4'R3 
75 346 ith MOV R1;(RS)+ sINSERT WORD 1 
5676 022350 010225 MOV Re; (R5)+ S INSERT WORD b 
5677 Oee3Se MOV R3, (R5)+ INSERT WORD 3 
5678 O223s4 INC Re :BUMP SECTOR COUNT 


; DECREMENT COUNTER 
Loe IF NOT YET ZERO 


. 


5680 
5681 000410 BR 4g : 
5é82 012701 ooi26e2 23: MOV 8PATX,R1 ‘GET ADDRESS OF PAT X BUFFER 
5683 022370 010003 MOV RO,R3 MULTIPLY SECTOR COUNT BY 3 
S684 O22372 ASL "TO GEY THE NUMBER OF WORDS REQUIRED 
5685 022374 060300 ADD R3, RO 
S686 022376 Ole2les 38: MOV (RL)+, (RS)+ ae HEADER WORD 
5687 De2400 DEC RO *DEC COUNT 
5688 001 BNE 3$ ‘LOOP UNTIL DONE 
5689 Occ404 104412 4g: RESREG 
5890 O22406 000207 PTS PC 
5691 © KERSSEEATSESSEFLSERESESESERALSESELALEKE EAA ESELARAFSRESRLLELELERE 
5E92 *ABTTL ERRUR MESSAGES FOR CONTROLLER ERROR RETURN 
S693 022410 046103 p40505 O20122 CERRO: .ASCIZ /CLEAR CONTROLLER DID NOT CLEAR ERROR/<15><12> 
5694 O2c416 047503 116 047522 
Sree Gseuae BNStiT paroNe peStiT 
34 haat ater | 042514 bettas 
5698 Oec446 04 OSil22 051117 
£699 022454 005015 000 
5700 116 920117 052101 CERR1: .ASCIZ /NO ATTENTION IS ATTENTION SUMMARY REGISTER/<15><12> 
5701 52116 geil 
5702 116 Oe1511 
5703 052124 047105 o44s2e4 
5704 022506 047117 051440 O4e5eS 
5705 022514 1 4S22 051040 
2708 D22522 1511 O4e524 
2708 ByTiSe Ou7EeS | 0445 
0471 S14 CERR2: .ASCIZ /UNSOLICITED ATTENTION/<15><12> 
at i Bees Bae 
S711 047511 16 12 
5712 Oeesé4 0471 054105 042529 CERR3: .ASCIZ /UNEXPECTED DATA TYPE ERROR/<15><12> 
6713 0521 2105 O4e040 
5714 052 1 psHbed 
57] 04 1122 
571 Oeebl4 OSii 15 000 
717 1 101 052124 O47105 CERRY: .ASCIZ /ATTENTION DID NOT RESET WITH DRIVE CLEAR/<15><12> 
6718 Oecbee O44524 047117 O42040 


















ERROR MESSAGES FOR CONTROLLER ERROR RETURN 
211 11? 
ces Be Oe 
l lll ll 
022656 051 053111 020105 
040505 


Oeeb7e 
fee Bee0h estie cals CERRS: .ASCIZ /ATTENTION DID NOT CLEAR WITH SUS-SYSTEM CLEAR/<15><12> 
A 116 O44 
047516 
1 


022710 0201 020124 
O46 


fo 
SN 
o 
as 


222 
RRS 
PRR 
Fata) 


2 

Ff 

=f 
Sister 


CERRE: .ASCIZ /ILLEGAL DRIVER COMMAND/<15><12> 


: 


BSS 
ae 
See 
neees 


5 
a 
Ban 
a t= 
Sy 


ob 
— WNIT 


CERR8: .ASCIZ /DATA LATE WHEN UNLOADING HEADER/<15><12> 





e 

a 
a2 

= 





De3042 0511 18 000 
02304 103 04711 1124 CERR9: .ASCIZ /CONTROLLER ERROR DURING DRIVE SERVICING/<15><12> 
3054 04611 oueo14 0201 
Beeeoe DNMESS ONaSiE 
3076 042526 
104 bef os Lids 
ie 16 I 
023121 104 O44S22 042526 CERRIO: .ASCIZ /DRIVE PARITY WHILE GATHERING STATUS/<15><12> 
d231e 050040 051101 OSel11 
Bie Said Paley pall 
Bie Bie Bul i 
164 00501 900 
5759 167 1 Dubie ouses CERRIS: .ASCIZ /MULTIPLE DRIVE SELECT/<15><12> 
5761 Gest} 020105 Ouese3 
5762 Oe3el 2514 103 00501 
5763 Oe3el6 000 
5764 3217 le 020117 051105 CERR7: .ASCIZ /NO ERROR ENTRY/<15><12> 
e7ee Betis cpg o0001 EQUIV C ERR11 
5768 “EQUIV CERR7,CERRI2 
5769 EQUIV CERR7°CERRI3 
: “EQUIV cE CERI 
771 “EQUIV CERR7,CERRI6 
5772 023240 000 CEFLG:' :BYTE 0 CONTROLLER ERROR FLAG 
5773 023242 “EVEN 
774 Oe32e42 023167 ETABL: .WORD 
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G10 
seen USER BRROR RESGAGES FOR COATBOLCER ERROR RETURN “°°” PAGE 124 


ete 


BeaneERe 


toto to boto eto eo toto 
ee 
WOnNOUICWe--O 


OURS 


ss 


-WORD CERRIY 


-SBTTL TEMPORARY CONTROLLER REGISTER STORAGE 


T.CS1: .WORD O ; TEMPORARY STORAGE FOR COMMAND AND STATUS 
; REGISTER 1 


T.CS2: .WORD O TREEISIER en FOR COMMAND AND STATUS 
T.WCR: .WORD 0 reo $1 See FOR WORD COUNT REGISTER 
T:BA: <WORD O TEMPORARY T FOR BUS ADDRESS REGISTER 
T.DA: :WORD O 7 MPORARY 5 OR DISK TRACK AND SECTOR 
T.0C: <cWORD 0 : TEMPORARY aT ORACE ae DRIVE CYLINDER 
T.ASOF: .WORD 0 TED Ser ge ORAGE FOR ATTENTION SUMMARY 
I 
T.ER: .WORD O . TEMPORARY STORAGE FOR ERROR REGISTER 
T.0S: .WORD O :TEMPORARY STORAGE FOR DRIVE STATUS REGISTER 
TRI: - WORD : ; TEMPORARY STORAGE F OR MAINTENANCE REGISTER 1 
T.MR3: .WORD O TEMPORARY RPOREEY STORAGE FOF HRINTENANCE REGISTER 3 
T:POS: WORD O iTENPORARY § FOR Ecc POSITION - 
T.PAT: .WORD 0 : TEMP ORARY STORAGE FOR ECC PATTERN 
T:DB: :WORD O *TEMPORARY STORAGE FOR Fa BUFFER REGISTER 
.SBTTL DRIVER PARAMERTERS 
— 177440 sADDRESS OF RK611 UNIBUS ADDRESS BLOCK 
BKUEe: “HORD 210 ADDRESS OF R611 VECTOR 
RKPRI: .WORD PRS *RK61 INTERRUPT P PRIORITY 
A. NORM: ERRERE sRKE LT TURN FROM DRIVER 
A.ABNL: DRVER oREee OF RENORMAL RETURN FROM DRIVER 
A. ONT: CONERR if RETURN 
naga: ; a OCATION 18 CLE WHEN EVERY COMMAND 
; NITIATED. IF A Con ROLLER ERROR 
: URS THE FOLLOWING BIT ASSIGNMENT IS 
9 
E.CCLR= BITO FCLEAR CONTROLLER DID NOT CLEAR ERROR 
E.NOATs BITL KO ATT ENT ION N ATT NTION SUN ARY REG 
"UATT= BIT ;UNSOLI ATED ATTENTI NTIAL ONLY) 
E.UDAT= BITS ‘UNEXPECTED DATA TYPE ERROR 


48a ] 
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OZRERB.C IVER PARAMERTERS 
peak 000 -CLAT= BITY ; ATTENTION NOT RESET WITH CLEAR 
ty 00004 . SCLR= Bite beg EUR EM Bean DID NOT CLEAR DRIVE 
5834 poo -ILLD= BITE i ILLEGAL L ORIVER COMMAND 
5835 00 -DLT= BITS :DATA LATE WHEN UNLOADING HEADER 
5836 001000 E.CERR= BITS ‘CONTROLLER ERROR DURING DRIVER SERVICING 
5837 992000 E.DPAR= SITIO sDRIVE DETECTED ne tr RROR 
38 OOR CMTO= BIT14 CONTROLLER COMM a ee OUT (QUEUED ONLY) 
ay 1 MDS= BIT15 ‘MULTIPLE DRIVE SELE 
5841 023360 000000 O.WAIT: .WORD OQ s PAREIE TER BLOCK OF THE DRIVE 
cs4e sWAIT ING FOR COMMAND COMPLETION 
5843 023362 000400 W.MTIM: .WORD 400 sLOOP COUNTER FOR MILISECOND SCAN OF DRIVE 
oat 023364 W.MILI: .WORD 400 316 MILISECOND TIME FOR PROGRAM 
S846 : CPU VALUE 
5847 : “<= enene 
5848 ; 
5849 : ll/ 100 
5850 ; 11/10 
5851 : ll/eu 
SeSe : 11734 
5853 ; 11740 
ses4 $ 11445 =: 400 
58ss i 11/50 
SeSé : 11/70 
5857 023366 000100 W.SEC: .WORD 100 ;SECOND COUNT cout ire ALL COMMANDS 
pees : 9 Etre AG SPINDL 
9 923370 001000 W.8SEC: .WORD 1000 OR DRIVE eveLE DOWN 
5860 023372 010000 W.MIN: .WORD 10000 tAIRUTE TIME FOR START SPINDLE 
5861 023374 HDR.AD: .WORD OQ “ADDRESS USED FOR READ ALL HEADERS 
S862 023376 000000 HOR.CT: .WORD 0 sHUREER OF HEROES LEFT TO READ FOR READ 
5864 00 009 I.ISRL: .BYTE 0 : INTERRUPT OR RELEASED COMMAND ISSUED 
S86S Besant O02 004 010 H.HEAD: .BYTE 2,4,10 ;HEAD DECO 
ooe8 023404 ooo W. TIME: .BYTE :DRIVES BEING WATCH-DOG TIMED 
cere SBTTL INTERRUPT MASKS 
5570 023405 000 INTMSK: .BYTE 0 ; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK 
5872 ; INTERRUPT MASK TABLE 
5874 ea I.ORV: .BYTE 1 ; INTERRUPT MASK FOR ORIVE 0 
5875 -BYTE 2 INTERRUPT MASK FOR DRIVE 1 
e78 10 004 -BYTE 4 ; INTERRUPT MASK FOR DRIVE 2 
ll 010 -BYTE 10 ; INTERRUPT FOR DRIVE 3 
5878 Oesle 020 -BYTE 20 ; INTERRUPT MASK FOR DRIVE 4 
coon 2413 040 -BYTE 40 ; INTERRUPT MASK FOR DRIVE S 
3414 100 -BYT 100 RRUPT FOR DRIVE 6 
5681 1s 200 -BYTE 200 INTERRUPT MASK FOR DRIVE 7 
Sees .SBTTL PARAMETER BLOCK TABLE 
Sees 023416 002142 PBLKT: PARMO sADDRESS OF PARAMETER BLOCK GIVEN WITH 
ces6 ‘DRIVE CALL. MUST BE LOADED INTO PBLKT 





ee ee 
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' RK611/RKOS USER per Ate? TEST = MACYLL 27(732) O3-NOV-76 22:40 PAGE 126 
DZRERB. CMS PARAME ER BLOCK TABL 


5887 
, $888 
«$889 .SBTTL TIME FOR WATCH-DOG TIMER 
$891 de34e0 900000 W.ORV: .WORD 0 ;TIME FOR INSTRUCTION IN PGRAMETER BLOCK 


ta | 





PAGE 127 
RK611/RKO& UNIBUS DRIVER FOR SEQUENTIAL OPE ATIONS (REV. 0.08) 
-SBTTL RK611/RKO6 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.08) 

5834 ;*COPYRIGHT (C) 1975 

‘ :#DIGITA EQUIPMENT CORP. 
*MAYNARD, 1754 
5897 : XAUTHOR: "ROY SPITZER 

39 -SBTTL #WATCH-DOG TIMER 


5901 _ ENS EES 


etateta 


5 ;* 
ty WATCH-DOG TIMER DOES A PSEUDO-TIMING OF RKO UNTBUS 

5904 ti SYSTEM COMMAND. SINCE ONE CAN NOT GUARANTEE THAT 
5905 1% RE ME CLOCK (KW11-P OR RWLTeL DS IS ON THE EvetEM 
5906 1% THE RKO& DRIVER WILL USE THE LOCATION W.MTIN FOR 
5907 2% MILLI-SEC NG. WHEN W.MTIM REACHES ZERO THE 
5908 ir “DOG TIME SCAN THE IN USE AS 
5909 * x DE TERMINED BY THE LOCATION W. TIME. THe TINER COUNTS 
5310 2x (ONE FOR EACH DRIVE) fe KEPT IN THE T 
5911 # IF ANY COUNT RELE W.DRV REACHES ER o° A COMMAND 
5912 x TIME-OUT ite THE ST eR ED IN THE PROGRAM DEVICE STATUS 
313 i REGISTER OF THAT DRIVE’S PARAMETER BLOCK. 
5915 1% THE DRIVER WILL THE LOCATION W.MIN AS THE NUMBE 
5916 2% OF M:LLISEC UNLOAD OR START SPINDLE BORN 
5917 x THE bSTVER ORE U ANE LT OCATION W.SEC AS THE TIME 
2318 i LIMIT FOR ALL OTHER COMMANDS. 
5920 1% FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL 
5921 :% WATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL 
Bice i OPERATIONS ONLY ONE OPERATION WILL BE WATCHED. 
raed **#CALL JSR PC,W.WTCH 
bie i RETURN IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT 
5927 * x OTHERWISE AN ABNORMAL RETURN TO THE ROUTINE ADDRESS 
5908 i BY LOCATION A.ABNL WILL OCCUR AND THE CMOTO FLAG 
5929 1 IN THE PROGRAM DEVICE STATUS REGISTER OF THE 
5330 ii APPROPRIATE PARAMETER BLOCK WILL BE SET. 
gone rir iiiiiiiittiitiiiittttittittttitiittitiititittiitittrt titre 
5934 Oe2422 Cl0S46 W.WTCH: MOV RS,-(SP) SME is RS ON ON THE STACK 
5935 Oes4e4 910446 MOV RY’ (SP) 
5936 023426 010346 MOV "=-(SP) F3 oN THE STACK 

5937 e439 010246 MOV Re, -(SP) ‘SAVE R2 ON STACK 

5938 013746 177776 MOV PS, -(5P) SAVE PROGRAM STATUS WORD ON STACK 
5939 023436 005337 023362 DEC Wo MTIM *DECREMENT MILLISECOND TIMER 

eaH0 deste 001 BNE 20$ :IF NOT ZERO RET URN 

941 13737 023364 023362 MOV W.MILI,M.MTIM :REINITIALIZE MILLISECOND TIMER 
Sou 105737 023404 TSTB ss WW. TIME "CHECK IF DRIVE IS BEING TIMED 
5943 023456 001426 BEG 20$ :NO RETURN 

couy 013737 023 17777E MOV RKPRI, BS sLOCK OU INTERRUPTS 

5S45 13702 02334 MOV RKBAS, * LOAD Ba a6 RKO REGISTERS 
E946 023472 005337 023420 DEC W.ORV ‘DECREMENT COMMAND TIMER 

5947 001016 BNE 20$ RETURN IF NO TIME OUT 
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RK611/RKOS USER DEFINED TEST 
DZR6RB. CNB #WATCH-DOG TIMER 


5948 023500 105037 
5949 023504 013705 


E) 
5981 023510 OSe765 
02316 020537 


A a 8 EE 


023404 
023416 


000100 
023360 


MACYLL e7 (732) 


000014 


S$: 
20$: 
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CLRB 
MOV 


BIS 
CMP 










K10 


W. TIME RESET TIMING INDICATOR 
PBLKT,RS *LOAD D -AOORES ESS OF ane BLOCK 
HCHOTO P. PRST(RS! OFF FONG OUT 
RS, 0.WAIT . CHECK IF DRIVER IS WAITING FOR 
4 aon MAND COMPLETION 
S$ DO NOT ALTER WAITING FOR 


NO OPMAND COMPLETION 


0.WAIT o£ WAIT FOR COMMAND COMPLETION 
PCR. ABNL ; BRANCH TO ERROR ROUTINE 

(SP TORE PSW 

(SP tRES TORE R2 

(SP 

(SP 

(SP 

Po 


5 a ———, 
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#RKO6 INTERRUPT SERVICE ROUTINE 


RK611/RKOS USER DEFINED TEST 
DZRERB.C 


BBS 


SESESEEEEE 
WONT We O 


.SBTTL #*RKOS INTERRUPT SERVICE ROUTINE 
55 SERRE IEE EERE EALERTS ISI AEB AIRE 
THIS ROUTINE WILL SERVICE ALL RKO& INTERRUPTS. 


UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL 
PERFORM ONE OF THE FOLLOWING SERVICES: 


) SERVICE ae “bs SEIZED BY OTHER PORT 
2.) ) SERVICE R IS WAIT FOR COMMAND COMPLETION 
a) REQUELE POSITIONING COMPLETION 
Paes CED R Md ORY WAS RELEASED 


5.) ta NO HE ERVICES 5 REGUTRED “THE COMMAND WILL BE ISSUED 
OR THE QUEUED RKOS DRIVER. 


aes ARE PROVIDED TO THE DRIVING PROGRAM. 


1. - NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND) 
2.) A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND) 
3.) A.CONT ADDRESS OF CONTROL ERROR RETURN 


FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE 
PARAMETER BLOCK WILL BE IN RS. 2 


FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS 
THE REASON FOR THE CONTROLLER ERROR. 


ROUTINES USED: 
C.OPT (QUEUED ONLY) 
Q.PUSH (QUEUED ONLY) 
«-RMOV (QUEUED ONLY) 
R.CONT (SEQUENTIAL ONLY) 
R.NORM (SEQUENTIAL ONLY) 


2 Se Se SO SS SS SESE SE SE SESS SE SE SESE SESE SE SESE SF SESE SE SESE BESS BE SEG SE GEGE EE BE GEST BE ae 


see RC WC RC RC DC Oc ae ic KC Dc IC RC OK Oe MC Oc OC OC Oe i OC CC cK OK Oe iC OBC OK OC OK Oe OC OC oe RK fe © 


R-ABNL (SEQUENTIAL ONLY) 
1.CSTS 
1. STAT 
1. 1SSU 
1.CCLR 
wo SESE SEAR SEER SE HEE AE HEE HEHE RHE SEARS HE HEH HER HEHE HEE HEE HE EHR RE EAE EEE EER 
ae MOV RS,-(SP) STORE RS ON THE STACK 
MOV RY’ -(SP) *STORE R4 ON THE STACK 
MOV R3;-(SP) ‘STORE R3 ON THE STACK 
MOV Re’ =(SP) STORE R2 ON te STACK 
MOV R1’-(5P) STORE R1 ON THE STACK 
MOV RO’ -(5P) :STORE RO ON THE STACK 
MOV RKBAS, Re :L 0A R2 TO ADDRESS RKOS REGISTER 
MOV RKCS2LRe),.T.CS2 ;STORE CS2 
BIT MDS, 7.cS2 ; CHECK IF MULTIPLE DRIVE SELECT 


CONTINUE PROCESSING 
E.CONT ort MULTIPLE DRIVE SELECT 
CONT REPORT ERROR 


BE 1$ 
te tf. oe 
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OZRERB. CMB RKO& INTERRUPT SERVICE ROUTINE 


E 6920 023622 000137 o26002 IMP I. RTRN ; RETURN 
022 023626 105737 023400 18: 1s18 1. ISRL : CHECK K TF INTERRUPT OR RELEASE 
er res tee 023400 FL eS eo nL cfs bot 
bOze 023642 900473 5R 1.100 ‘CRT INUE PROCESSING INTERRUPT 
f 
44 400 — cs: CLRB ISRL :CLEAR FLAG 
Ebs3 feseec Abolse | BSazee INP “ATTN :60 PROCESS DRIVE ATTENTIONS 
£031 023654 032737 O10400 923306 63: BIT #NED!UFE,T.CS2 tnt FIELD ek DRIVE OR 
4 BEQ ? : NO, MarT FOR DUAL ACCESS INTERRUPT 
eb34 aed rk 3 023306 MOV so RY LOAD FORD RIVE Nu nBER 
6035 023670 042704 177770 BIC BiC<DRVMSK>,R4Y :KEEP BRI VE Bt TS 
6036 023674 013705 O22416 MOV PBLKT :STORE PARAMETER BLOCK ADDRESS 
B37 023700 Olbes? 995000 023304 Hoy RKcotRe),7.CSL j LORD TEMPORARY CSI FOR STATUS REPORT 
Ebag 022712 016237 oO00012 023324 7s: MOV RKDS(R2),T.DS  ;STORE STATUS REGISTER FOR COMPARISON 
B04 023720 032737 C0000! 023324 BIT #DRA, 7.08 :CHECK IF DRIVE SEIZED BY OTHER 
pos 023726 001041 NE 1.100 NO, CONTINUE PROCESSING INTERRUPT 
5045 -CHECK IF ANY DATA TRANSFER ERROR EXISTS 
| 6046 023730 032737 164000 023306 BIT = #DLT! WCE! UPE! NEM, T.cS2 
| €048 923736 001007 BNE 108 SINDICATE ERROR 
| 6049 025740 016237 000014 023322 MOV RKER(R2),T.ER STORE ERROR REGISTER: 
6051 : CHECK FOR DATA TRANSFER ERROR TYPE ERROR 
b55¢ 02374 032737 125700 023322 BIT #DCK!OPI!WLE!COE!HVRC!BSE!ECH, T.ER 
| b054 023754 001407 BEO 11S ;NO, WAIT FOR RELEASE OF RKO& DRIVE 
| 6056 023756 052737 O00010 023256 i0$: 8BIS #E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
6057 023764 004737 027030 ISR PCR. CONT : T ERROR 
| 6058 023770 000137 O26002 JMP I. RTRN *RESTORE REGISTERS 
3774 105037 023404 11$:  CLRB u. TINE RESET TIMING ON THIS DRIVE 
| Eber See a00 f 53 023420 CLR W.DRV “CLEAR TIMING COUNT FOR THIS DRIVE 
b0be 024004 013705 d23416 MOV PBLKT,RS *LOAD RS WITH PARAMETER BLOCK 
b0b4 024010 052765 o10000 op0014 BIS #DRVSZD,P. PRST(RS) ; ise TDRIVE SEIZED IN THE N THE oer 
| 0b d24016 905037 023360 CLR Q.MAlT jou WAIT FOR COMMAND COM COMPLETION 
| bOb8 ated 550137 b5e002 JMP I. RTRN 2) OURESTORE Rec REGISTERS 
| 60 013705 023360 1.100: MOV 0.WAIT,RS ;LOAD PARAMETER BLOCK ADDRESS INTO RS 
Ebr Beupse Shion BNE 2g :TS COMMAND WAITING PROCESSING 
| 
| 607e : YES, DO PROCESSING 
£073 024040 000137 024764 IMP I. ATTN ?NO, PROCESS ATTENTION 
| 6075 024044 013704 023306 28: MOV T.cS2,R4 ;STORE RKCS2 FOR DRIVE NUMBER 
| 
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CMB RKOG INTERRUPT SERVICE ROUTINE 
6076 o240SO 042704 177770 Bic #tC<DRVMSK>,R4Y ;MASK OUT UNNECESSARY BITS 
£078 
6079 oO240S4Y 126504 900000 CMPB =—s- PL DRVN(RS) ,R4 CHECK FF DRIVE NUMBER IS EXPECTED 
30 Heb 4 i BEQ 3$ 
4 0 HALT ?NO, D VER ERROR 
6082 O24064 122765 O00164 oO00001 3$: CMPB —s- #RDALHD,P. CMND(RS) 5 “CHECK IF READ ALL HEADERS 
6083 924072 001002 BNE 10$ “NO, EXECUTE NORMAL BATA TRANSFER 
po84 024074 000137 o24432 IMP I. HDAL :GO’EXECUTE SPECIAL HEADER SEQUENCE 
6086 624100 005037 023360 10$: CLR 0.WAIT ;CLEAR WAIT FOR COMMAND COMPLETION 
£087 024104 005037 023420 CLR W.DRV :CLEAR WATCH-DOG T 
6088 024110 105037 O23404 CLRB sodA. TIME RESET TIMING ON TH ATs DRIVE 
6089 O24114 016237 009000 023304 MOV RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS REGISTER 1 
990 024122 032737 100000 023304 BIT #CERR,T.CS1 i CHECK , IF CONTROLLER ERROR 
6091 024130 901021 BNE RR YES, PROCESS ERR 
“§092 024132 016237 000016 023320 MOV RKASOF(R2) .T.ASOE ee tore Reee TON SUMMARY 
°€093 024340 133737 O2340S 023321 BITS INTMSK, T. ASOF+1 ‘CHECK IF DRIVE ATTENTION SET 
6094 024146 001004 BNE 1S$ YES “REPORT ER 
6095 024150 004737 027016 ISR PC. R. NORM ‘INDICATE NORMAL RETURN 
6036 024154 000137 d26002 IMP I. RTRN RESTORE REGISTERS 
6038 024160 052765 o00010 000014 15%: BIS #UEXATT,P.PRST(RS) ;SET UNEXPECTED ATTENTION 
6100 O24166 004737 o264S2 I.ERRA: JSR PC,I.CSTS sSTORE CONTROLLER STATUS 
p10} 024172 o00405 BR 1.ERR *STORE PATTERN AND POSITION INFORMATION 
6103 024174 013765 023304 OO0016 I.ERRC: MOV T.CS1,P.CS1(RS) QC ERROR RKCS1 
6104 Oe%ed2 004737 026474 JSR i REST OF CONTROLLER STATUS 
6105 Oc4¥206 016265 000032 O00062 I.ERR: MOV RKECPT(R2) ,P. epat ies) sSTORE ECC PATTERN 
6106 O24214 016265 000030 000060 MOV RKECPS(Re) ,P.EPOS(RS) ; STORE ores POSITION 
6107 Qe4222 004037 026020 JSR RO,I.CCLR CLEAR’ CONTROLLER 
6108 Oe4226 Oeb002 1.RTRN ‘ERROR RETU URC 
6108 024230 032765 o10400 on0020 BIT aNED!UFE,,P. csa¢Re) init FrELo'eR Was NON-EXISTENT DRIVE OR 
6111 024236 OD1046 BNE S$ REPORT ERROR 
6112 240 004037 O26556 JSR RO, I.STAT po DRIVE STATUS 
6113 Oe4244 Oe600e 1.RTRN *ER RETURN 
6114 Oe424— 112737 O0000S 023304 MOVB #DR.CLR,T.CS1 ;LOAD COMMAND 
B11S O24254 004037 O26102 ISR RO, 1. 1S$u : ISSUE ORIVE CLEAR 
6116 O24260 Oe6002 1.RTRN 43 
6117 Oex¥262 133737 O2340S 023221 BiTB | INTMSK,T.ASOF+1 ;CHECK IF ATTENTION RESET 
6118 O24270 001407 BEQ 2 NO, INDICATE DRIVE ERROR 
113 024272 052737 100020 023356 BIS #£.CLAT,E.CONT ;SEt 1 ATTENTION DID NOT RESET 
6le1 024300 004737 027030 JSR PC,R. CONT ‘REPORT CONTROLLER ERROR 
blige 024304 000137 O26002 JMP 1. RTRN GO RESTORE REGISTERS 
6124 OP4310 032737 O40000 023330 2s: BIT #S.DSC,T.MR2  ;CHECK IF DRIVE STATUS CHANGE CLEARED 
61°S 024316 001403 BEQ YES, CHECK FAULT 
bleb 052765 o00040 000014 BIS wORVOSC P.PRST(RS) ject sc DID NOT CLEAR 
6127. 024326 032737 O01000 023332 3%: BIT #S.PAR, T.MR3 CHECK F DRIVE PARITY ERROR 
- 6128 024334 001407 BEQ S$ *NO KNDICOTE ABNORMAL TERMINATION 
6129 Oe4336 052737 O02000 023356 BIS #E.DPAR,E.CONT ;SET DRIVE PARITY E 
6130 024344 004737 027030 JSR PC.R.CONT s INDICATE CONTROLLER ERROR 
6131 024350 000137 Oo2600e IMP 1. RTRN * RETURN 
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DIRERS. CME #RKOS INTERRUPT SERVICE ROUTINE 
61 
6135 peuasy greres oo0s20 000014 ss: BIT HORVHRD,P.PRST(RS) -CHECK IF HARD DRIVE ERROP 
613 362 90101 BNE 108 ;YES, GO REPORT ERROR 
61 4 ? 920000 023330 BIT SS.PIP,T.MR2 :CHECK IF DPIVE IS CYCLING DOWN 
61 2 4) BEG l *NO, aged ERROR 
6137 74 020900 900014 81S 8£.UNLD P PRET (RS) *SET ORIVE UNLOADING 
6138 Oo44 ii 3 bes 023404 MOVB INTMSK,W.TIME ;SET UP 8 SECONDS FOR DRIVE TO CYCLE uP 
6139 Oe4410 013737 023379 23420 MOV W. 8SEC;W. ORV 
B40 Ce4416 137 IMP :GO RESTORE REGISTERS 
614 737 027004 108: JSR PCR. ASNL :GG REPORT ERROR 
ei ated 137 026002 IMP 1. RTRN ;GO RESTORE REGISTERS 
bis .S8TTL #READ ALL HEADERS INTERRUPT SEQUENCE 
pis? 024432 016237 900000 023304 I.HDAL: MOV RKCS1(R2),7. 051 : STORE CS1 TO CHECK CONTROLLER 
6149 neq44D 932737 100000 023304 BIT #CERR, T.CS! :CHECK IF CONTROLLER ERROR 
bis0 O2e4446 9014 BEG c$ *NO, CHECK FOR ATTENTION 
6152 peuys0 005037 o2 CLR 0.WAIT ;CLEAR WAITING FOR COMMAND COMPLETE 
6153 195037 023404 CLABOséWWM. TIME *RESET TIMING ON DRIVE 
6154 005037 0234 €LR W.ORV : TIME COUNT 
6155 0137€ 00001 MOV T.CS1,P.CS1(RS) ;STORE ERROR RKCS1 
b15e oo4 474 JSR pc, 1.esTi :STORE CONTROLLER REGISTERS 
61 76 7 SSenod JR RO; T.CCLR *CLEAR CONTROLLER 
6158 .RTRN sERR URN 
6159 027004 SR PC,R. ABNL : INDICATE ERROR RETURN 
b160 024519 137 026002 IMP 1. ATRN sRESTORE REGISTERS 
6162 O2c4514 023320 S$: MOV RKASOF (RS). T.ASOF ;STORE ATTENTION SUMMARY 
6163 Dewees 023321 BITB INTMSK,T.ASOF+1 ;CHECK IF DRIVE ATTENTION IS SET 
6164 PEG 7§ NO, CHECK IF READ ALL HEADERS 
6165 Oe453e CLR O.WAIT :CLEAR WAITING FOR COMMAND COMPLETION 
bi66 Oe4526 €LRB so. TIME *RESET TIMING ON DRIVE 
£167 Deveie €LR W.DRV *CLEAR TIME OUT COUNT 
bibs INP 1.ERRA :60 T ERROR 
6170 oe4ss2 78: MOV HDR. AD, R1 ;GET MAIN MEMORY ADDRESS 
6171 Se4556 MOV RKDB(R),(R1)+ 3GET FIRST WORD OF HEADER 
&l7e MOV RKDB(Re),(R1)+ GET SECOND WORD OF HEADER 
6173 MOV RKDB(Re), (R1)+ iget "HIRD WORD OF HEADER 
6174 MOV R1, HOR. AD : STORE RODRE FOR NEXT HEADE! 
6175 Oc4576 023306 MOV rKeS2(R2),7.CS2 ; STORE Se CHECK FOR DATA LATE 
617% beve04 023306 BIT 8OLT,T.CS2 > CHECK TA LATE 
6! le BNE YES. REPORT ERROR 
6178 4 DEC HOR. CT *DECREMENT NUMBER OF HEADER YET TO READ 
6173 BNE 25S :IF ZERO, GO ISSUE NEXT R 
61 CL 0. WAIT *CLEAR ORIVER WAITING FOR COMMAND COMPLETION 
6181 CLR W. ORV *CLEAR TIME OUT COUNT FOR THIS DRIVE 
bige Geubse CLRS W, TIME CLEAR WATCH TIME ON THIS DRIVE 
61 000026 MOV #3,RKMRI(R2) =; INT E REGISTER FOR SECTOR COUNT 
le Bee cent RR Renae! ee ee cota 
£186 peapee I.RTRN + RRORS RETURN 
6167 O24660 ooo0sé y T.MR3,P.B11(RS) LOAD SECTOR COUNT 
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T SEQUENCE 
ISR PC, R.NORM ; INDICATE NORMAL TERMINATION 
JMP 1. RTRN “RESTORE RE aS 
o00020 25$: Mov P.CYLN(RS) ,RKDCYL(R2) ;LOAD CYLINDER ROORESS REGISTER 
MOV P.SECT(R rRKOA (Re) «LOAD SECTOR AND T 
017 MOVE P-CSIH(RS) P.CS141 (RE) sSTORE BITS 8-15 of “$1 
16 sic tcc CDT SCFATS P, S185) sCLER LEAR ALL BITS EXCEPT FORMAT AND 
000016 MOV - BROHEAD.P.CS1(RS! iis Oe Oke con COMMAND ISSUED 
000000 MOV P, eco RS), STS -ISSUE READ HEADE 
IMP sRESTORE REGISTERS 
023355 35$: 8! iE. oT E.CONT ;SET DATA LATE WHILE UNLOADING HEADER 
3S CONT *REPOR OR 
IMP Taran sRESTORE REGISTERS 
.SBTTL #DRIVE ATTENTION SCANNER 
023304 I.ATTN: MOV RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS 
: REGISTER 1 FOR COMPARISON 
023304 BIT 8CERR,T.CS1 *CHECK IF CONTROLLER ERROR OCCURRED 
BEQ S$ NO, CHECK IF ATTENTION 
-CHECK IF ANY DATA TRANSFER TYPE ERROR EXISTS 
023306 BIT #OLT!WCE!UPE! NEM, T 
BNE 1S s INDICATE ERROR ft 
023322 MOV RRER(R2), T.ER STORE ERROR REGISTER 
; CHECK FOR DATA TRANSFER ERROR TYPE 
023322 BIT #D0CK! OPI! WLE!COE!HVRC!BSE!ECH, T.ER 
BEQ 2s NO DATA TRANSFER ERROR 
023355 13: BIS #E.UDAT,E.CONT ;SET UNEXPECTED DATA TYPE ERROR 
JSR PC_R. CONT -REPOR 
IMP 1. RTRN *RESTORE REGISTERS 
2s: MOV T.CS2,R4 ;SAVE CS2 FOR R REGISTER NUMBER 
BIC BIC<DRVMSK>,R4Y STRIP OFF J 
CLRB Ss. TIME : CLEAR Matt 00 DOG TIMER 
éLR W. ORV *RESET TIMER VALUE 
MOV PBLKT,RS *STORE PARAMETER BLOCK ADDRESS IN RS 
: CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER 
: IN PROGRAM DEVICE STATUS REGISTER 
000014 BIC #ORVPOS! DRVPDT,P.PRST(RS) 
IMP 1. ERRC GO REPORT ERROR 
023304 SS: BIT #01, T.CS1 sCHECK IF ANY DRIVE ATTENTION 
BNE 6S *YES OcESs IN TERRUPT 
IMP I. RTRN RESTORE REGISTERS 
023320 6&8: MOV RKASOF(R2),T.ASOF ;STORE ATTENTION SUMMARY 
TSTB  —s- T. ASOF +1 sCHECK IF ANY ATTENTIONS SET 
FAY 4@ 4 } 
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IVE AFFENTION SCANNER 


DZRERB 
1 ? sYES GO PROCESS INTERRUPT 
Bede fSe13q 823995 onnone geaase BYE AB noar.e.cont EF nD atte Rion IN ATTENTION SUMMARY 
B24 025142 004737 027020 ISR PC.R. CONT RROR 
i 025146 000137 d2600e2 IMP 1. RTRN $86 RESTORES REGISTERS 
6249 025152 133737 O2340S 023321 7%: BITB —_INTMSK, T.ASOF +1 ; CHECK ode DESIRED INTERRUPT 
6250 625169 901007 SNE 83 YES, GO PROCESS IT 
625 162 052737 000004 023356 BIS #£.UATT E.CONT CET UNSOL ICATES ATTENTION 
ese 025170 004737 027030 JSR €.R.CON :GO REPORT ERROR 
B53 025174 060137 O26002 IMP I. RTRN GO RESTORE REGISTERS 
£255 025200 013795 o23416 83: MOV ;STORE PARAMETER BLOCK TABLE 
6256 025204 116504 900000 MOVE F. SDS) 8 -STORE DRIVE NUMBER 
6257 OeS210 032765 020000 ono014 BIT OTP PReTc R5) ;CHECK IF DRIVE UNLOADING 
be58 D2Se16 001402 BEQ +t :NO, CONT 
be53 O2eS220 000137 025702 IMP 1.UNLD :SERVICE DRIVE IN POSITION AFTER ERROR 
626 000014 118: Ic SDRVPOS, P. PRST(RS) IVE POSIT QNING 
ESES peeses BdeaeS anne CLR MRI (Re) ot Ane SAIN NTENAICE REGISTER 
6263 025236 112737 000001 023304 MOVB ROR SEL,T.CS1 :L 
6264 0252044 004037 O2610e ISR RO, I. Tsay" ; SELECT DRIVE WITH ATTENTION HIGH 
6265 25250 O26002 1. RTRN * ERROR 
6266 OeSe52 013765 023332 oD0042 MOV T.MR3,P.B00(RS) STORE oFatie BYTE OO MESS B 
| 6267 025260 O320765 090200 ood04e2 BIT #5.FLT,P.B00(RS)’;CHECK IF DRIVE FAULT 
| 6268 025266 OO1401 BEQ 12 86 CHECK FOR DRIVE STATUS CHANGE 
Bee8 025270 o00461 BR 1. ARERR *PROCESS ERROR 
| 6271 025272 013765 023330 OO0040 125: MoV T.MR2,P.ADO(RS) ;STORE MAINTENANCE REGISTER 2 
| §272 925300 032765 040000 cO00040 BIT #5.0S¢,P.AOO(RS)’ ; CHECK K_FOR DRIVE STATUS CHANGE 
| 6873 025306 001004 BNE 13$ YES CESS DRIVE STATUS CHANGE 
| 6274 025310 052765 oO04000 000014 BIS shODSC, P.PRST(RSS Eee RO DRIVE STATUS CHANGE 
| 6275 Oes3l6 OO044 BR I.AERR’ “phocese. S ERROR 
P538 025320 112737 OOCO0S 023304 138: # MOVB  #DR.CLR.T.CS1 ;LOAD COMMAND 
| 6278 025326 004037 Oebl0e JSR RO,1.1SSuU :CLEAR DRIVE STATUS CHANGE 
| 6273 025332 026002 , 1. RTRN jERROR R ! 
| §280 01 023320 co0032 MOV T ASO ,B.ASOE (RS) ATTENTION SUMMARY 
| 6281 025342 1 023405 000033 BITB ti TMSK,P. “ASOFS1¢RS)- 5 I CHECK IF ATTENTION RESET 
| 6282 025350 001407 BEQ 15 S; CONTINUE INTERRUPT PROCESSING 
| §2B3 052737 000020 023356 BIS #E.CLAT,E.CONT :SET ATTENTION DID NOT RESET 
| 6284 ;_ WITH DRIVE CLEAR 
6285 025360 004737 027030 JSR PC,R.CONT LAG ERROR 
| BeBe 025364 000137 Ode600e IMP 1. RTRN RESTORE REGISTERS 
| 6288 025370 013765 023330 OOD040 15$: MoV T.MR2,P.ACO(RS) ;STORE MAINTENANCE REGISTER 2 
| 6289 025376 032765 O40000 000040 BIT #5.050,P.AOOCRS) 5 CHECK IF DRIVE STATUS CHANGE 
| ry 001404 BEQ 16S YES RONTINUE INTERRUPT PROCESSING 
| 6p 052765 000040 000014 BIS #ORVDSC,P. cotenk’ > SET BET DRIVE STB STATUS CHANGE DID NOT CLEAR 
| 6293 025414 000407 BR 1. AERR ;G0’ PROC 
P5ae 025416 105037 023404 16$:  CLRB u. TINE sRESET TIMING ON THIS DRIVE 
| 6296 OeS¥ee 005037 de34e0 CLR CLEAR DRIVE TIMING COUNT 
| 6297 025426 004737 027016 JSR Pe RY NORM REP ORT SUCCESSFUL COMMAND COMPLETETION 
| b698 Oeb¥se O005E3 BR 1. RTRN SRESTORE REGISTERS 
| 





-SBTTL #ATTENTION ERROR HANDLER 
OeS434 O42765 O00004 O00014 I.AERR: BIC SDRVPOT,P.PRST(RS) ;RESET POSITIONING IN PROGRESS BECAUSE 


RKBIL/RKOS USER DEFINED TEST _- MACYLI 27(732) O3-NOV-76 22:40 PA 
aoReAa ses Sa ERT IaN ERROR Sano ER rey that pen ese oy 
6300 
e 4 LRB sé TIME : AR TIN Ne POR TH S DRIVE 
pane Beeude apenas Beausd gRS i aM Te Cope TINE 
6306 Oes4S2 942765 177741 000016 Ic #177741,P.CS1(RS) ;KEEP COMMAND ISSUED 
B07 Des460 Oye? 37 900036 023304 BIC #36.7.0$1 KEEP CURRENT CONTROLLER STATUS 
Pang Gseurd braves wait Sov 1.€81,6-€81 (RS) TORE “CONTROLLER REGISTERS 
6310 Sedans ee pess08 oppose MOV Thee’ P MeRCRED , 
ae 025510 013768 De331¢ 000024 HOV T-BA,B. BAR (RS) 
pai age Oi sres 5 16 Bpp058 MOV TBerB: 7 Ree 
6314 O25532 013765 Oe 000032 MOV T.ASOF, P.ASOF (RS) 
6315 O25540 013765 Or3a3e2 000034 MOV T.ER,P-ER(RS) 
B18 025546 13768 000036 MOV T.DS;P.DS(RS) 
6317 025554 JSR RO, 1:STAT ;GATHER DRIVE STATUS 
6318 025560 Oe6002 1. RTRN ‘ERROR RETURN 
e359 fseess baacs? Geeise "OO Te Re ee ea COVE” ERRORS 
6321 025574 Oe6002 i, apictaie ‘ERROR RETURN 
bce 025576 139737 02340S 023321 BiTB  INTMSK,T.ASOF+1 CHECK IF ATTENTION RESET 
Pasa GSeehe Bete5 oone0 23356 Bis = SE-CLAT.E.CONT SET’ ATTENTLON BID Rov RESET 
6325 025614 004737 027030 JSR PC’ R.CONT : 
6326 025620 0900137 O26002 JMP I. RTRN ‘RESTORE REGISTERS 
! 
6329 025524 032765 000020 O00014 2s: BIT SDRVHRD,P.PRST(RS) :CHECK IF AHARD DRIVE ERROR 
| g353 Opeea2 DO10I7 Be 108 yes” RE 
| $330 Gc5634 0233230 BI #S.PIP,T.MR2 CHECK IF DRIVE IS UNLOADING 
p33 da peotee 14 See OS LD. P.PRSTCREN SET DRIVE LAM OADING DUE TO ERROR 
Bee ee ea 
| pase GSecee Shdis> bScbos ep |S pa eCrORE REGISTERS 
| ea 025672 004737 027004 10$: JSR PCR. ABNL REPORT ERROR 
6338 025676 B01 37 026002 IMP 1. RTRN RESTORE REGISTERS 
| B40 .SBTTL  #*ERROR CAUSING DRIVE TO UNLOAD 
000014 I.UNLD: BiS #£.UNLD,P.PRST(RS) :CLEAR DRIVE UNLOADING BECAUSE OF ERROR 
«BRS Obeei5 Trees O2 MCVE #OR.CLR’T.CS1  ;LOAD_IN DRIVE CLE 
| 6344 025716 004037 026102 ISK RO, 1. 1SSu GO ISSUE DRIVE CLEAR 
be Gesre4 Se Seay oe340s 023321 SitB INTMSK(RY),T.ASOPS] SCHEEK IP. ATTENTION CLEARED 
| Bay eed 000020 023356 Boy CLAT net sYES, CONTINUE DID NOT RESET 
iB eS Ey phi Bee 
| 6351 : ' 
| bebe Seeree : 040000 023330 15S: BIT #S.DSC, T.MR2 ; CHECK IF DRIVE STAUS CHANGE RESET 
| 6354 025 65 000040 o00014 BIS SDRVOSC,P.PRST(RS) ;SET DRIVE STAUS CHANGE DID NOT CLEAR 
| 6355 025766 105037 23404 20$:  CLRB  W.TIME RESET TIMING ON THIS DRIVE 
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SING ORI UNLCAD 
O2S772 005037 023420 CLR W.ORV sCLEAR TIME COUNT ; 
025776 004737 027004 JSR PCR. ABNL tREPORT ERROR 
012600 I.RTRN: MOV (SP)+,RO RESTORE RO 
026004 012601 MOV (SP)+'RI RESTORE RI 
: MOV (SP)+,Re RESTO 
10 91 MOV (5P)+°R3 RESTO 
14% 0: 2605 MOV (SP)+°RS RESTORE RS 
it BeBeos ; 7] : RETURN 


z 
tT 
Oo 
s 
= 
o 
< 
w 
vu 
A 
ET 
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Ea 
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~SBTTL #CONTROLLER CLEAR ROUTINE 
RRR REE E ERE ERE EAE E RHEE EE EEE EERE EEE EERE EERIE EEE EEE EELS 





th 
p37 1% THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER 
b372 1% CHECK I inf ae SF ERRORS GRE RESET THE ERR R IS NOT 
63 1 cLbere HE ROUT NE AS SPECIFIED IN A.CON wnt oe afte WITH 
6374 # E.CCLR SET IN E.C 
Base i REGISTER USE 
6377 1 0 weeeeene one 
£378 1% 
6379 2% Re ADDRESS OF RKO& REGISTERS 
ps5 i RS ADDRESS OF PARAMETER BLOCK 
B82 **#CALL JSR RO,I.CCLR 
6383 ie <ADDORESS OF ERROR RETURN? 
dice 
$386 +s . © SEELEERKLLLEAAAELALL ALLELE LE RAKE LESLE LARA ELAS LASEK EAE SEE 
Re ; 026020 o1 100000 OO0000 I.CCLR: MOV #CCLR,RKCS1(R2) ;CLEAR CONTROLLER 
6389 026026 016237 000000 023304 MOV RKCS1 URe) T.CS1 :STORE COMMAND AND STATUS REGISTER 1 
6230 Oeb034 Ose7s7 100000 025304 BIT = WCERR,T.CS1 CHECK olf CONTROLLER CLEAR D 
6392 O26042 001407 BEQ S$ ives. RETURN TO DRIVER PROCESSING 
6393 025044 737 000001 023356 BIS #E.CCLR,E.CONT SET CLEAR CONTROLLER DID NOT CLEAR ERROR 
6394 peb0se 737 027030 ISR PCR. CONT REPORT CONTROLLER ERROR 
6395 011090 MOV (RO), RO *SET UP ERROR RETURN 
63% O26060 RTS RO : RETURN (e 
6397 _— ¥ 
01 000 5S: MOV ale, RKCS1(R2)  ;SET INTERRUPT ENABLE ( 
B5e5 fsenes S1S785 oo10g pogo 5 MOVB 1’. 1SAL {SET INTERRUPT ENABLE ISSUED 
6400 026076 005720 TST (Rohs ADJUST FOR NORMAL RETURN 
6401 026100 000200 RTS RETURN 
/ 
a2 862 A a ] 





au 


8 
SERA RRR 
NAIGKLSG SREVKB 


ome Ee 


6457 Oe6e46 


DEF INE 
*COMM 


013746 
3 
163? 
42737 
13762 
05762 

on73? 

032737 

poe? 


TEST _ MACY1I1 27(732) O3-NOV-76 22:40 PAGE 138 
BN ISSUED BY BRIVER BEd 192 ROUTINE 
.SBTTL #*COMMAND ISSUED BY DRIVER SERVICE ROUTINE 
5% ERE PES KS RSLEEERE SESH LS SELES ESP LEAS REEL SELLE LR SERA REPEL SEE SA LSPES 
3% 
ir THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CS1 
ib bal setleed Pam on Par eee ur ecto angen 
i CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE 
:% — . 
i REGISTER USE 
+ % 
1% Re ADDDRESS OF RKO& REGISTERS 
ii RS ADDRESS OF PARAMETER BLOCK 
*#CALL JSR RO, 1. ISSU 
x <ADDRESS OF ERROR RETURN? 
- RETURN 
i ROUTINES USED: 
+ 
3% I.CCLR 
ii 1.STOR | 
: 5 REKEAELALAERAEL ELA LARA KEKE RARE REKLALARERERE RAL ARASH LL RELA REL KLEE 
023304 I. ISSU: NOV T.CS1,-(SP) s STORE COMMAND ISSUED 
aie 3306 MOVB §P.DRVN(RS),T.CS2’ LOAD IN DRIVE NUMBER 
023306 000010 T.CS2,RKCS2(Re) ;LOAD DRIVE NUMBER FOR COMMAND 
000007 023305 VB = P.CSIA(RS),1.CS1$1_;STORE BITS 8-15 OF CSI 
177753 023305 BICB #tC<B.COT#B. CFT» ,T.CS1#1 iCLEAR ALL BITS EXCEPT 
023304 oo00000 MOV T.CS1,RKCS1(R2)  scue CONPAND 
000000 1S: STB RKCS1tRe) WAIT FOR READY 
026324 ISR PC, 1.STOR GO STORE REGISTERS 
100000 023304 BIT acERR, T.CS1 * CHECK IF CONTROLLER ERROR OCCUERED 
001000 023306 BIT #MDS, T.CS2 > CHECK IF MULTIPLE DRIVE SELECT 
BEQ 2s *NO, CHECK FOR OTHER CONTROLLER ERRORS 
490000 023356 BIS #E.MDS,E.CONT ;SET MUL DRIVE SELECT FLAG 
030 ISR PCR. CONT *REPORT CONTROLLER ERROR 
rt) 10$ : RETURN 
“CHECK IF ANY CONTROLLER ERROR IS SET 
024000 023304 2S: BIT SCTO!SPAR, T.CS1 
176400 023306 BIT SUFE!PGE! NEM! NED!UPE!WCE#DLT, T.CS2 
131761 023322 Bit SILC!DTYE!FHTE!ECH! BSE! HVRC!COE!DTE!OPI!DCK,T.ER 
ooo00s CMPB = aDR.CLR,(SP) | ;CHECK IF CLEAR ORIVE , 


4 


RK611/RKOG USER DEFINED TEST 
OZRERB. CNS 


6458 OebeSe 001003 
6459 OebeS4 poe res 
6316 
646e Oebe70 Ole7be 
6463 
6464 02e6300 905720 
000200 
6466 
6467 026304 052737 
£469 O2631e 004737 
005726 
6471 Oe63e0 011000 
000200 


eee 


000020 000014 
026020 


000100 9000000 


MACY11 27 (732) 
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE 


S$: 


001000 023356 7%: 


027030 


10$: 


O3-NOV-76 22:40 PAGE 139 


3$ 
#ORVHRD 
RO, I. 


(RO)+ jADIUST RO FOR NORMAL RETURN 
RO ‘RETURN 








D0 NOT SET SET OBIVE HARD ERROR 
P, PasriRe) iE HARD 0 
cctr a A CONTROLLER CLEAR 


TURN 
rt Peete ies INTERRUPT ENABLE 


#£.CERR,E. CONT SET a ERROR DURING 
DRIVER SERVICING 


PC,R.CONT REP ORT ERRO 
(SP)+ :ADJUST STACK 
fo), *RO spoil RO FOR ERROR RETURN 


a em enaemacaamaaeemeeaeeaaaaeaaaaaaaaamaaaaacaaaaaaaamaaaaaaaaaassemamaaaamaaamaaaaaaaaaamaaaeaaaaamacaaaaaamacaaaacaaceammmmmmmmmmammmmmammccaamaaa, | 


en 


RK611/RK 
DZRERB.C 
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O& USER DEFINED TEST 


MACY11 27(732) 
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*STORE RKS11 UNIBUS REGISTERS 


See eee e Rags 


Boeceoooooocoeoso 
fv 
SS 


-S3TTL  #STORE RK611 UNIBUS REGISTERS 
WUT ittiiitiitiititititititittitiiiiititttititittttiiitttt titties 


:# 
2% THIS SUBROUTINE IS CALLED BY THE RKO& DRIVER TO STORE ALL 
3; RK611 REGISTER IN TEMPORARY LOCATIONS. 


;* 

ZxCALL JSR PC, I. STOR 

% RETURN 

i REGISTER USE 

:% 

+x Re ADDRESS OF RK611 REGISTERS 


s% 
irtittitiititittiiititititiitittitiiitittiititttititttitstt ite 


023304 I.STOR: MOV RKCS1(R2),7.CS1 ;STORE ALL CONTROLLER REGISTERS 
023306 MOV RKCS2(Re).T.CS2 ; EXCEPT DATA BUFFER 
023310 MOV RKWC(R2), T.WCR 
023312 MOV (R2);T.BA 
023314 MOV RKDA(Re),1.DA 

3324 MOV RKDS(R2),T.DS 
023322 MOV RKER(R2);T.ER 

3320 MOV RKASOF (R), T. ASOF 
023316 MOV RKDCYL(Re)’T.DC 

MOV RKMR1 (Re), t.MRI 

023330 MOV RKMR2(Re),T.MRe 
023332 MOV RKMR3( Re) T.MR3 
023334 MOV ECPS(R2),7.POS 
023336 T(R2);T.PAT 


; RETURN 











aH Taye | USER DEFINED TEST 
*STORE CONTROLLER STATUS 


02 


CMB 


MACY11 27(732) 


-SBTTL 
:& 
3% 
;* 
;* 
;* 
st 
;* 
;* 
3% 
5% 
;* 
;* 
;* 
pRCALL JSR 
2 
;* 
;* 
3% 
;* 
3% 
;* 
;# 
s& 
;* 
000016 I.CSTS: BIC 
BIC 
000016 BIS 
000020 I.CSTl: MOV 
000022 MOV 
MOV 
000026 MOV 
000036 MOV 
000034 MOV 
000032 MOV 
000030 MOV 
RTS 
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*#STORE CONTROLLER STATUS 


THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 


FOLLOWING 


fp RERRARAARA RAE REEL AA AA LAA ALARA ERLE RL AK ELA L EEL ERE RRFAESTLLELES 


i S_SUBRO NANG Ae CALLED BY BEE KOE DRIVER AT PRIORITY 7. 


MMAND AND STATUS REGISTER 2 


COMM 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 


DESIRED TRACK AND SECTOR 


STATUS REGISTER 
ERROR _REGISTE 


R 
ATTENTION SUMMARY/OFFSET REGISTER 
CYLINDER ADDRESS REGISTER 


PC,I.CSTS 


REGISTER 


#177741,P.CS1(RS) 


RK 
alls IAS 
RKDCYL(R@) ,. DCYL(RS) 


RKO& BASE ADDRESS 
ADDRESS OF PARAMETER BLOCK 


fp RERRAAREALLEL AERA RARE EEAEAELRHA LALLA ALAR ALE REEL LE ELE RRERRERRELE 







CONTENTS 


;CLEAR ALL BITS EXCEPT FUNCTION 


;GENERATE CS1 STATUS ba gal ION 
STORE C REGISTER 2 
;STORE WORD COUNT 


REGISTER 
STORE BUS ADDRESS REGISTER 
STORE DESIRED TRACK AND SECTOR 
s STORE DRIVE Brats REGISTER 
; STORE ATTENTION SUMMARY AND 


OFFSE 
STORE CYLINDER ADDRESS 
s RETURN 


Leer 


RK611/RKOS USER DEFINED TEST 


DZR&RB. CNB ¥GATHER DRIVE STATUS 
b550 .SBTTL #*GATHER DRIVE STATUS 
Pe3s ; ee tg ee eee 
6554 1% THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STATUS 
6555 1% BYTE 01, 10, AND 11. IT IS ASSUMED THAT THE ORIVE 
bees ;# HAS PREVIOUSLY BEEN SEIZED. IT RUNS AT PRIORITY 7. 
5558 ¥CALL JSR 
6559 * ADDRESS Roe EBAGR RETURN? 
b5bE i THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN: 
6564 7% 
6565S 2% REGISTER CONTENTS 
6566 BRE oe ie eh) eens oo) ae =< ee 
6567 3% 
6568 1% Re RKO& BASE ADDRESS 
563 i RS ADDRESS OF PARAMETER BLOCK 
6571  # ROUTINES USED: 
bS7e i 1. ISSU 
bere : H HLELKK KEL K KKK K KEK SEEK ESKER EEE RE EEE EEEEEEEREEER EEE ERE REEF RE REESE 
| b576 026556 012762 000001 O00026 I.STAT: MOV #1, RKMR1(R2) iLO ee vie et l 
6578 O26564 112737 000001 023304 MOVB a SEL,T.CS1 COMMAND 
6579 026572 004037 026102 JSR -1SSu GET STATUS BYTES Ol 
6580 026576 026766 33 OR 
6581 O26600 013765 023330 O0004 MOV : ny .ADL(RS) STORE STATUS BYTE O01 MESS A 
6582 6606 013765 Oessze 000046 MOV T.MR3,P.BO1(RS) ‘STORE STATUS BYTE 01 MESS B 
6582 O2eS14 Ole762 o00002 000026 MOV #2, RKMRI (Re) LOAD MAINTENANCE REGISTER 1 
£584 : FOR STATUS BYTE 10 
| B85 026622 112737 000001 023304 MOVB aor, SEL.T.CS1 ;LOAD ¢ 
| €586 026630 004037 026102 JSR i. Issu ‘GET STATUS BYTES 10 
| §€587 026634 026766 33 “ERROR RETUR 
| 6588 026636 013765 023330 000050 MOV :. ion i ALO(RS) ‘STORE STATUS BYTE 10 MESS A 
6589 Oe6644 013765 Oes332e 000052 MOV T.MR3,P.B10(R5) STORE STATUS BYTE 10 MESS 
6590 O12762 000003 000026 MOV #3, RKARI (Re) LOAD MAINTENANCE REGISTER 
6591 ; FOR STATUS BYTE 11 
6592 O26660 112737 990001 023304 MOVB OR, SEL,.T.CS1 LOAD 
6593 926666 004037 102 ISR 0,1.1sSu" ‘cer STATUS BYTES 11 
| §594 26672 026766 3$ ERROR RETURN 
| 6595 026674 013765 023330 O000S4 MOV T.MR2,P.ALL(RS) “STORE STATUS BYTE i MESS A 
6596 Oe6702 013765 02333e MOV T.MR3,P.BL1(RS) “STORE STATUS BYTE 11 MESS B 
6597 026710 O0S062 000026 CLR RKMR1(R2) LOAD MAINTENANCE REGISTER 1 
| §598 + FOR STATUS BY TE OO 
| €599 026714 112737 000001 023304 MOVB  #DR.SEL,T.CS1 ;LOAD CO 
| §600 O26722 004037 O2610e ISR RO, 1. 1SSU ;GET STATUS BYTES 00 
| 6601 026726 026766 3$ ;ERROR 
| 602 026730 013765 023330 000040 MOV T.MR2,P.AOO(RS) * STORE STATUS BYTE 00 MESS A 
| 6603 026736 013768 023332 go0o42 MOV T. TMS, P. B00(R5) ; STORE TUS BYTE 00 MESS B 
| 604 026744 032737 001000 0233 BIT Rt f at PARITY DETECTED BY DRIVE 
| 6605 O26 001407 BEQ HH iO. RETURN NORMALLY 
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DZRERB. CNB ¥GATHER DRIVE STATUS 
6506 026754 052737 902000 023356 BiS  _#E. DPAR, E. CONT SINDICATE BAD PARITY DETECTED BY DRIVE 
6607 Oee7b2 004737 027030 JSR PCR. CONT :REPORT ERROR 
6608 26786 011000 38: MOV (RO), RO LOAD RO FOR ERROR RETURN 
603 026770 00200 RTS RO ‘RETURN 
6611 G26772 052765 OO1000 OO0014 S$: BIS #PBSVAL,P.PRST(RS) ;SET PARAMETER BLOCK STATUS VALID 
6612 O27000 905720 TST (RO) + ADJUST RO FOR NORMAL RETURN 
613 Oeode 000200 RTS RO RETURN 

« 





r ee eee ee ee 
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DZRERB. CNB ®COMMON DRIVER RETURNS 
pels -SBTTL #COMMON DRIVER RETURNS 
6617 O2e7004 105037 023405 R.ABNL: CLRB INTMSK -; INHIBIT FUTURE DRIVE INTERRUPT REPORTING 
6618 027010 OO4777 174336 JSR PC, dA. ABNL s INDICATE QENORMAL RETURN 
pel? 027014 000207 RTS Piece :RETU 
| 6621 027016 105037 023405 R.NORM: CLRB INTMSK ; INHIBIT FUTURE DRIVE INTERRUPT REPORTING 
b$22 Oe70ee OON777 174322 JSR PC, dA. NORM INDICATE NORMAL RETURN 
PPss 027026 ~20207 RTS PC : RETURN 
66eS 027030 105037 023405 R.CONT: CLRB INTMSK ; INHIBIT FUTURE DRIVE INTERRUPT REPORTING 
| £626 Oe7034 105037 023404 CLRB so. TIME RESET WATCH DOG My” ON THIS DRIVE 
; $627? Qe7040 005037 Oeste CLR W.DRV CLEAR TIMING COUNT FOR THIS DRIVE 
6628 G27044 004777 174304 JSR PC, dA.CONT sANDIcATE CONTROLLER ERROR RETURN 
66e9 027050 000207 RTS PC 
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she coe TET 


Sz 
S88 


x 
8 
4 
8 


8 


1 023342 





- . ~ i 
MS @OOMMEND INITATO 


f 


MACYS] eri 732) 


-SSTTL 





C3-NOV-76 22:40 PAGE 145 


#COMMAND INITATOR 


5 SLSPEFSSSESESSSLALFSSSASLASSSSSSE SELES ESSE SLSLESASSSSSLASAS SASS 


* + me eee 


er a 


o 


THIS ges WILL putt rae ALL COMMANDS AS SPECIFIED 
BY THE COMMAND FIELD OF PARAMETER BLOCK. THE FOLLOWING 
SPECIAL COMMAND ARE ALSO "BrecureD: 

parve” STATUS 


ae 
READ SPECIFIED HEADER 
THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE CF COMMANDS 
JSR PC,C. INIT 
(ADDRESS OF PARAMETER BLOCK? 
RETURN 
FOR THE SEQUENT IAL OPERATIONS, THE DRIVER WILL LOAD THE 
LOCATIONS, PBLKT AND INTMSK. 
ROUTINES USED: 


sy RERESSSSESSLSLEAFLESSLSEELEFERL SEL ALELAFLASE LALA LLL SLES LLLAFLSS 


C. INIT: MOV RS, -(SP) ;STORE RS ON STACK 
MOV RY’ -(SP) :ST ON STACK 
MOV R3,-(5P) *STORE R3 ON STACK 
MOV R2;-(5P) ig! ON STACK 
MOV B1,-(5P) :STORE R ON TACK 
MOV "=(5P) :ST TACK 
MOV PS'~(SP) >STORE PSW ON STACK 
MOV RKPRI PS *LOCK OUT RKOG AN ERRUPTS 
MOV a16(SP) RS :STORE PARAMETER BLOCK ADDRESS 
ADD 16(SP) “ADJUST RETURN 
MOV P.ORVN(RS),R4Y  ;STORE DRIVE NUMBER 
BIC #iC<ORVMSK} ,R4 MASK OUT JUNK 
MOV RS, PBLKT *LOAD PARAMETER BLOCK TABLE 
nove 1. SRV(R4), INTMSK’ sLOAD INT T 
MO 1.DRV(R4)'W. TIME :SET WATCH-DOG TIMER FLAG 
MOV W.SEC,W.ORV  ;LOAD WATCH-DOG TIME 
MOV RKBAS, Re sLOAD R2 WITH RKO& ADDRESS BASE 
RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT 





OR R 

WRITE FOR WRITE CHECK 

NO CHECK 

DROP DRIVE FROM TEST SEQUENCE 


INHIBIT BUS ADDRESS INCREMENT 





ne rn eee oe te oe ce ee 
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OZRERB. CNS SCOMMAND INITATOP 


B58 027154 O42765 075176 O00014 Bic #tC<DRVUSE!W. WCK!NOCHK! DRPDRV!DTBAIID ,P. PRSTIRS) 

6688 O27162 010500 | MOV RS, RO ;STORE PARAMETER BLOCK AUDRESS _ 

589 e716s 909016 ay #P°CS1,R0 EAL CULATE Rais LOCATION 16 BE CLEARED 
7} 10591 V “Ri STORE P T K ADDRESS 

p63! 172 O&e701 code ADD aPEPAT, RI ‘CALCULATE LAST LOCATION TC BE CLEARED 

6693 027176 005020 18: CLR (RO)+ :CLEAR RETURN PARAMETER 

5E94 32006 CMP RO,RL : CHECK I FINISHED 

6595 1617 BLOS }6s«18 "NO, CLEAR NEXT RETURN PARAMETER 

6696 027204 1 0234 CLRB sd. ISL CLEAR RELEASE OR INTERRUPT ISSUED 

£697 Oe72i0 O10465 aaa MOV R4.P.CS2(RS) STORE ORIVE NUMBE 

6698 Oe7214 OoSos2 O00026 CLR RKMRI (Re) :CLEAR RKO& MAINTENANCE REGISTER 1 

£699 027220 132765 000040 on000: BITS  #B1TS,P.CMND(RS)’:CHECK IF SPECIAL COMMAND 

8700 Oe27e26 00 BEQ 33 3HO 

pol 027230 137 027744 IMP C.SPEC :JUMP TO SPECIAL COMMAND PROCESSOR 

6703 027234 122765 000107 000001 3s: ¢ SUNLOAD,P.CMND(RS) ;CHECK IF POSITIONING COMMAND 

6704 ; START SPINDLE 

6705 : RECALIBRATE 

6706 : OFFSET 

§707 : SEEK 

pros ; UNLOAD 

6719 Oe72e42 101174 BH! 25s 3NO, DRIVE COMMAND 

5711 ’ : SELECT DRIVE 

6712 : PACK ACKNOWLEDGE 

He , 

6715 027244 122765 O00117 000091 CMPB = SEEK, P.CMND(RS) ;CHECK IF DATA TRANSFER 

6716 Oe7eSe 103540 BLO 20$ YES, DATA TRANSFER COMMAND 

£717 : READ DATA 

£718 : WRITE DATA 

£533 : Sette READER 

6721 : WRITE CHECK 

E722 027254 Oeste po0020 co0010 Ov P.CS2(R5),RKCS2(Re) ;LOAD DRIVE NUMBER 

E723 ODe7ebe 000014 BIS #DRVPOS,P-PRST(RS) :SET DRIVE POSITIONING 

6724 27670 005037 023 CLR 0.WAIT sCLEBR WAIT FOR COMMAND 

£725 1ee7és sity 000001 8SEEK,P.CMND(RS)’ ;CHECK IF SEEK 

£55 sae we ooo002 MOV Be cvLNc axocve toa) “Esk POT ONDER ADDRESS 

6728 terse pi Pees 000004 ean MOV P SEPT CRE)  RKDAC RS) ) kD BE TDR AND TRACK 

6723 000431 BR 8S G0 ISSUE COMMAND 

6721 027322 422765 000115 00001 SS: CMPB #OFFSET,P.CMND(RS) ;CHECK IF OFFSET 

6 027330 1007 BNE q NO. CHECK FOR UNLOAD 

a 1ibsbS oo0006 000032 MOVE -OFST(RS),P.ASOF (RS) ;STORE OFFSET 

6724 027340 O16562 000032 000016 MOV P.ASOF(RS);RKASOF(Re) :LOAD OFFSET REGISTER 

7% 027346 OO00416 BR 8S G0 ISSUE COMMAND 

6727 027350 122765 000111 O00001 ES: CMPB = SSRTSPL,P.CMND(RS) ;CHECK IF START SPINDLE 

6738 027256 00 BNE ? : HECK IF 


1003 NO. C CAL 
6739 0137 0234 MOV W.MIN, W. ORV LOAD WATCH DOG TIME FOR 1 MINUTE 
€740 eed 122765 a ; 5 BBBCaT 7$: CHP BRECAL,P. CHND (RS nicTeGK TF RECAL 
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CMB #COMMAND INITATOR 
6742 027376 013737 023370 023420 Mov W.8SE EC W.ORV  ;LOAD RECAL TIME FOR 8 SECONDS 
6743 O27404 116565 000007 O00017 es: MOVB  P.CSIHIRS).P. Rape th? STORE BITS 8-15 OF cSt 
Tae Oe74i2 O42765 165777 Olé BIC NICTCEM MT?CcOTS C51 (RS) CLEAR it BITS EXCEPT FORMAT 
¢ 
6 027420 LIGSES po00001 00016 MOVE P.CMND(RS),P.cSitRS) DAVE COMMAND INTO CSi 
674 Deruee o4 090200 900014 BIC #W.WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK 
6748 336768 000400 900014 SIT SNOCHK;P. PRST(RS) CHECK IN NO CHECK MOD 
He Eines BEE ommioo moe = HBup ccucasy  iMtae timer ee 
Poe 7452 O16 eeat 0 MOV Pat GB Bes ah -ISSUE C 
Poe SSoueq ate poso00 3304 _ sav RCeei RSD T.CS1 : sos MATCH OD Pee ond STATUS REGISTER 1 
6754 peoaSs pissse 3304 SIT #RDY,T.cSi *WAIT FOR READY 
6755 027500 001767 BEQ 10$ 
6 be7e0e 032737 100000 023304 BIT CERR, T.CS1 ;CHECK FOR ERROR 
2 19 901011 BNE 15$§ ‘YES, GIVE NORMAL RETURN 
6758 O275l2 004737 023422 118: JSR PC. W.WTCH WATCH DOG TIMER 
6759 027516 016237 OO0016 023320 MOV RKASOF(R2).T. asot’s -STORE ATTENTION SUMMARY 
£760 be7ee4 i 923405 023321 BITS INTHSK, T ASCE SI sCHECK IF INTERRUPT HAS OCCURRED 
$761 1767 BEQ 115 *WA ¢x FUR DRIVE INTERRUPT 
eres peresd Boens? peated wei ipa tty i OEPER DRIVE TIMING COUNT © 
6764 027544 Boasae ants JSR PCR. NORM * INDICATE COMMAND IS PUNISHED 
B78 027550 000127 IMP C.RTRN sRESTORE REGISTERS 
6767 027554 O16S62 000010 O00004 20S: MoV P.BALO(RS),RKBA(R2) :LOAD BUS ADDRESS REGISTER 
6768 Oe7562 016562 000012 900002 MOV P.WC(RS) RKWC(R2) ;LOAD WORD COUNT REGISTER 
6759 027570 DibSb¢ 000020 MOV P.CYLN(RS) ,RKDCYL(Re) :LOAD CYLINDER ADDRESS REGISTER 
6770 527576 O01 000006 MOV P.SECT(RS) ‘RKDA(Re) sLOAD ETOR BRD TRACK NUMBER 
6771 Q27604 122765 000131 000001 CMPB  sWRTCHK,P.CMND(RS) CHECK IF WRITE CHECK COMMAND 
6772 Oerel2 001010 BNE 25s “NO, GO ISSUE THE COMMAND 
6773 O27bi4 ood200 00014 BIT ii. WCK,P.PRST(RSS :CHECK IF WRITE COMMAND SHOULD BE ISSUED 
6774 Oe7be2 001404 BEQ 2s *NO, GO ISSUE THE COMMAND 
6775 Oe76e4 012765 000123 o00016 MOV SWRDATA,P.CS1(RS} :ISSUE WRITE COMMAND 
778 G27632e OUuU4O6 BR 26 G0’ ISSUE COMMAND 
6778 027634 116565 000001 O00016 25$:  MOVB P.CMND(RS).P.CSI1(RS) ;MOVE COMMAND INTO CS 
6779 Oe7e42 O4e765 009200 000014 BIC #1. WCK,P.PRST(RS) :RESET WRITE FOR WRITE CHECK 
6780 027650 116565 000017 26%: M0 p CSIHtRS) |P.CSL+1tRS) jgToRe 8 BITS 8-15 OF CSI 
6781 Oe7656 142765 raza 000017 BIC ##C<B.CFMT!B. COT!8.8A16'B.BAI7>,P.CS14+1(RS) :CLEAR ALL BITS EXCEPT 
b7Ee ; FORMA T DRIVE TYPE, AND BUS ADDRESS 
6784 010537 023360 MOV RS,0.WAIT ob SaterhZ FOR COMMAND 
6785 nash 032765 190000 o00014 BIT sOTBAII,P.PRST(RS) ;CHECK IF INHIBIT BUS ADDRESS INCREMENT 
6786 027676 001403 BEQ 27S NO, LOAD CS2 
6787 Dse768 oo0020 BIS #BAI,P.CS2(RS) :SET INHIBIT BUS ADDRESS INCREMENT 
6788 O1bsbe p00020 OO00i0 273: Mov P.CS2(RS) RKCS2 (Re) LOAD Se 
000400 000014 BIT SNOCHK,P.PRST(RS) sCHECK IN NO CHECK 
nie Q 3NO parte CLEAR OF INTERRUPT ENABLE 
900100 00016 BIE.P.CSI(RS) CLE NTERAUPT ENABLE 
6792 000016 OO00000 308: MoV P.CS1(R5),RKCSI(RE) ; ISSUE C 


<3 
n 
Nh 


030724 IMP C.RTRN sRESTORE REGISTERS 
.SBTTL *SPECIAL COMMAND PROCESSING 
122765 000141 OO0001 C.SPEC: CMPB = #RDSTAT,P.CMND(RS) ;CHECK IF READ DRIVE STATUS 


8 


55 
] iss 
ee 































67 1 BNE O$ PRO ESS OTHER COMMANDS 
bras ae Wass: o90020 00010 MOV b°852:R5) mucsechey Gnd’ 632 FOR Co COMMEND 
116565 000007 400017 MOVB © P.CSIH(RSS.P.CS1+ ITS 8-15 OF CS1 _ 
O4276 165777 O00016 BIC BICeOE NTE COTS P, ee ‘CLEA ot Bite or CEPT FORMAT 
027776 112765 000001 oD00I16 MOVB #08.$ L,P.CS1(RS3 ;STORE COMMAND 
516 000016 900000 MOV sCsitR)RCCSICRaS ISSUE COMMAND 
O300i2 004737 Oe3422 2s: ISR W.WTCH cal i WATCH-DOG TIMER 
000005 00016 MOV Race P, osichs STORE COMMAND AND STATUS REG. i 


900200 o00016 BIT gROY,P. .CS1(RS) nalt FOR READY 


ee 
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BORER CRE eee eee Pal Command SRAcESSING 
030004 
5 
030032 2 
530034 26474 ISR PC,1.CST1 «STORE CONTROLLER REGISTERS 
34 oo0040 MOV RKMRE(R2),P.AOD(RS) ; s STORE Status BYTE OO MESSAGE A 
6811 O3004%6 016265 000036 on004e2 MOV KMR3(Re).P.BOO(RS) :STORE STATUS BYTE OO MESSAGE B 
6812 030054 032765 100000 OO0016 BIT #CERR,P.CSI(RS) ;C tebe IF CONTROLL ER ERROR 
6813 030062 001436 BEQ 6$ ian GATHER DRIVE STATUS 
6814 030064 108037 023404 CLRB u. TIME *RESET WATCH DOG TIMING ON THIS DRIVE 
6815 030070 023420 CLR W.ORV “CLEAR WATCH DOG COUNT 
esi? Gapioe BRioNs cote CooOIs iy SCH, P.PRSTIRS) 1 END CEL, MOE 
Bis Bates faeesy umm comes FF osscsocy Ht a 
Botta eariter 026020 ISR RO,I.CCLR *CLEAR ERR 
6821 030120 030724 C.RTRN RROR BE TORN 
| 6828 p25 1¢2 G3e768 010400 op0020 Bir WNED!UFE, P.cS2(R5) ich CK If NON-EXISTENT DRIVE OR UNIT FIELD ERROR 
| 6824 030132 G3e765 00000: 000036 BIT BORA, P..0S(RS) 5 CHECK pS ORIVE, AVAIL IABLE 
PES? ete pe10pe 010000 000014 Bre #ORVSZD,P.PRST(RS) ; INDICATE FRO IS SEIZED BY OTHER PORT 
| §€827 036150 004737 027004 cs: ISR PC.R.ABNL * INDICAT ATE ABNORMAL RETURN 
| 828 030154 000137 030724 JMP C.RTRN :RESTORE REGISTERS 
£559 5S 030160 004037 o265S6 6S: JSR RO, I.STAT ; GATHER DRIVE STATUS 
B83] 030164 030724 CRTRN ERROR 
166 1 023404 ¢LRB u. TIME :STOP WA che OG TIMING ON DRIVE 
| 6833 030172 005037 023420 CLR W.DRV RESET WAT 
| 6834 030176 000014 BIT #NOCHK,P.PRST(RS) :CHECK IF NO Rueek MODE 
| 6835 030204 O01 BEQ 83 :NO, REPORT ERROR 
bE CLR RKCS1(R2) “CLEAR INTERRUPT ENABLE 
O30212 004737 027016 8S ISR PC. R. NORM *REPORT COMMAND COMPLETE 
| 6838 030216 000137 030724 JMP C.RTRN *RESTORE REGISTERS 
pesg 100000 023356 9%: 1S 8E.MOS.E.CONT  ;SET MULTIPLE DRIVE SELECT 
| 684 127 027030 SR PCR. eOht * INDICATE CONTROLLER ERROR 
| em 137 030724 IMP A ARRAN 
| §844 030240 122765 O00140 O00001 10S: # CMPB = #RELEAS,P.CMND(RS) sCHECK IF RELEASE COMMAND 
aed N30S4E bo1049 BNE =NO CK IF READ ALL HEADERS 
030250 01 023360 NOV . +N ane ARAMETER BLOCK ADDRESS IN 
| BBH7 me WAIT FOR COMMAND 
fea bas ; ee eae it 10 MOV 
' 6850 1127 0234 VB 
| 6851 116565 00001 MOVB 
| 030304 042765 165777 000016 BIC 


i 
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6854 000016 MUVB wSELDRV P.CS1( i ele a BND ex 
000014 BIT OCHK,P.PRST(RS) HECK F NO CHECK 
BEQ ig : T RESET INTERRTPT ENABLE 
000016 BIC CSICRS) 3D, 00 INTERREE NABLE 
p00000 118: MOV . -ESLURS), rucsi (Re) “ISSUE CO aon 
IMP ESTORE REGISTERS 


000001 13%: CMPB- Ss SRDALHOD,P. cmoces) ;CHECK IF READ ALL HE 


ROY £5, WAIT iat KaYTNG F 58 Con MAND R SSERB erze 





023374 MOV P.BALO(RS) .HOR.AD ;LOAD HE R AODRES $5 
13e765 009020 900007 BITB #B.CFMT,P.CSIH(RS)’ - CHECK ie 22 SECTOR FORMANT 
SEQ 14 -YES. LOAD 22 IN HEADER COUNT 
000024 023376 MOV #20. ,HDR.CT ‘LORD 20 IN SECTOR COUNT 
000403 BR 22$ G0 ISSUE READ HEADER COMMAND 
030412 012737 000025 023376 14$: MOV sLOAD 22 IN SECTOR COUNT 
20 bibSbe poo0de 000020 225: MOV . matt STeKD cyL(R2) ;LOAD CYLINDER ADDRESS 
% Ol 000006 MOV SECT(RS }* BKDAC RSD sLOAD TRACK NUMBER 
34 O1b5be gcode9 99019 MOV B: 2EStRes RKCS2( Re) iLOAD DR VE NUMBER 
2 il 00001 MOVB  P.CSIH(RS).P.CSI+1(R5) ; ITS 8-15 OF CS1 
O304S0 O42765 165777 OO0016 BIC peajaplitl g g ALL BITS EXCEPT DRIVE TYPE 
O304SE 112765 000125 o00016 MOVB § SRDHEAD.P.CS 1(R5} ; STORE READ HEADER COMMAND 
030464 032765 000400 000014 BIT 8NOCHK, BF pret ine F NO CHECK MODE 
030472 001027 BNE 4g és Tho tate ILLEGAL DRIVER COMMAND 
030474 016562 000016 000000 MOV P.CS1(RS), rKcsi (ha)? ¢1ecte READ HEADER 
030502 000137 030724 IMP C.RTRN sRESTORE REGISTERS 
030506 122765 000176 O00001 305: CMPB = sCONCLR,P. CHND(RS) | sCHECK IF CONTROLLER CLEAR 
030514 001012 BNE 325 CHECK IF SUBSYSTEM CLEAR 
030516 004037 ISR RO, 1.CCLR i Pag ONTROLLER 
C.RTRN RETURN 
000014 BIT #NOCHK,P. PRST(RS) :CHECK IF NO CHECK MODE 
1472 BEQ y NO, INDICATE NORMAL RETURN 
030534 o0S062 CLR RKCS1(Re) ‘RESET INTERRUPT ENABLE 
030540 000467 BR 40S : INDI 


026020 

p00400 

oooon0 I 
CATE NORMAL RETURN 

Gansve 122765 000177 000001 32S: CHPB—SSURBCLR,P.CHNDCRS)_ CHECK 

000100 

p00040 

oo0000 


1 -CHECK IF SUBSYSTEM CLEAR 

930550 01408 BEQ 36 YES, CLEAR SUBSYSTEM 
023356 34S: IS #E.ILLD,E.CONT SET ILLEGAL DRIVER COMMAND 

030560 004737 JSR PC_R. CONT REPORT ERROR 

000457 BR C.ATRN ‘RESTORE REGISTERS 
030566 012762 000010 36%: MOV SSCLR,RKCS2(R2) ; ISSUE SUBSYSTEM CLEAR 
030574 016265 000016 MOV Paes) (Re) P.CS1(RS) :STORE COMMAND AND STATUS REGISTER 1 
Bape16 ooraoe 200000 onl BO ~CSLCRS) ;CLERE TF CONTROLLER ERROR RESET 
herat bes799 000001 023356 BIS ato, E.CONT ise CLEAR SUBS SYSTEM DID NOT CLEAR 
030620 004737 027030 JSR PC,R.CONT : OR 
0320624 000437 BR C.RTRN *RESTORE REGISTERS 
030626 01374 023364 37S: MOV 


W.MILI,-(SP) | ;LOAD 16 MILI-SECOND COUNT FOR ATTENTION 
- TO DISAPPE 
RKCS1(R2),P.CS1(RS) ;STORE CSI 


Seo ag: 


3 
< 


030632 Ol6265 000000 000016 38S: 
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6910 030640 032765 040000 000016 BiT WOI,P.CS1(RS) | ;CHECK IF ATTENTIONS CLEARED 


4 3 SH COMM 
es neat Bpedte BER 328, itbeeehdn +4 16 OTT Pee COND COUNT 
6913 030652 001367 BNE 38% s CHECK peIve INTERRUPT AGAIN 
Baie Bangee Os275° c000 Bisa oc sBOTURT grat 
315 527. 40 023356 BIS #E.SCLR,E.CONT :5 rou VSTEM EM Guear DID NCT CLEAR 
6917 g30664 737 027030 JSR PC R.CONT *REPOR ERRON 
6218 1S BR C.RTR RESTORE REGISTER 
63920 030672 005726 398: TST (SP) 
£921 630674 032768 ooo400 900014 BIT aOCHK, P. PRSTCRSS HECK rata CHECK MODE 
6922 101 SNE C.RTRN’ RES ORE REGISTERS 
6923 030704 112737 177777 023400 MOVB #-1,1.ISRL see "INTERRUPT ENABLE SET 
6924 030712 Ole76e 000100 o00000 MOV #IE:RKCS1(R2) 3SET INTERRUPT ENABLE 
b3e5 030720 004737 027016 40$: JSR PCR. NORM ‘INDICATE NORMAL TERMINATION 
6927 030724 012637 177776 C.RTRN: MOV (SP)+,PS RESTORE PSW 
6928 930730 012600 MOV (SP)+'RO *RESTORE RO 
6929 030732 012601 MOV (SP)+/R1 RESTORE RI 
6930 030734 01c602 ee MOV (5P)+’Ro + RESTORE 
6931 030736 012603 es MOV (SP)+/R3 *RESTORE RO 
£932 030740 012604 Par Se MOV (SP)+)R4 RESTORE 
6933 O30742 012605 HOV (5P)+°RS SRESTORE RS 
6934 039744 000207 PC * RETi 
B35 .SBTTL BC TAL TO BINARY CONVERSION ROUTINE 
pea : eT eae tee eee er ae ee ee ae Te 
£939 1% THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
£940 : WITH A THE CHARACTERS 4 GAL 
£941 1% it WILL GENERATE Fo BINARY ipRDS PLACING THE | OW I6 BITS 
bse ii ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT. 
6944 *#CALL 
6945 1% MOV <ADDRESS OF ASCII STRING) ,-(SP) 

& +" JSR PC, OCTBIN 
£94 i <ADDRESS OF ERROR RETURN> 
Pais 3% RETURN 
pan $3 HERE LLELE KE LHL LAS ERE ARSE RA REA LAKE EHLR EA SRSA LL ELE AE ELL SAREE RETARD 
6 10046 OCTBIN: MOV RO,-(SP) sSAVE RO 
fae Nees stat MOV R1,-(5P) i SAVE Ri 
Pgee Bao7es bibeGS 000010 HOV Retsey Ro seer ak SS OF ASCII STRING 
6956 heey 1 CLR At : >CLEAR DATA WORDS 
Pee BSOTER SHSDNE 2s mate Feo)e (SP) sPICK THIS CHARACTER 
e ’ 
ret Be ites pes Heit 
6960 121627 OO00S4 CMPB =s«( SP), @”, heck Rte SOM 
696 001420 BEQ IF COMMA GET OUT 
6 iee716 000060 C #’0, (SP) *MAKE SURE THIS CHARACTER Is 
031006 BGT 4S > AN OCTAL DIGIT 


R 
— 
o 


000067 CMPB Ss«#’7,, (SP) 
BLT 4$ 


o 
3 
eo 
© 
Oo 
i 
a 


| 
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OZR6RB. OCTAL TO BINARY CONVERSION ROUTINE 


CNB 
6 031012 
Ese? 031014 
es 
ee ie 
pare hee 
le 
6974 031034 
6975 031036 
& rete 
& 1044 
6978 ptt 
6979 031 
6980 031054 
6981 031056 
6982 0310be 
6983 
ae ies 
6985 031070 
6987 03107e 
6988 031074 
6989 031076 
6990 031100 
6991 
£992 
6993 
6394 
6995 
6996 
6997 
£998 
£999 
7000 . 
7001 
7002 
7003 
7004 
7006 
Me HUB 
7003 031106 
7010 031110 
7011 031114 
7012 rttes 
ae Be 
bie G31 ee 
7016 0211 
7017 031132 
7018 rte. 
7019 1140 
7020 031142 
7021 031146 


ce 


aise 
Snenee 


ae & 


eEus 


BUS 


BS 
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ASL RI . #2 
ROL Re 
ASL RI ; #4 
ROL Re 
ASL Rl ; #8 
ROL Re 
BIC #107 SP? sSTRIP THE ASCII JUNK 
BOD (oP 4, hy THIS DIGIT 
38: TST oF ; CLEAN PARTIAL FROM STACK 
MOV R1, 10(SP) -SAVE RESUL 
MOV Re. SHIOCT 
MOV (SP)+, Re sRESTORE R2 
MOV (SP)+'RI ‘RESTORE RI 
MOV (SP)+’RO RESTORE R 
ADD 82, (SP) ADJUST RETURN 
RTS PC * RETURN 
4§: TST (SP)+ ;CLEAN UP PARTIAL FROM STACK 
MOV (SP)+,Re “RESTORE Re 
MOV (SP)+/RI RESTORE RI 
MOV (SP)+’RO jREST ORE RO 
MOV a(SP)+, (SP) PUT ADDRESS OF ERROR ROUTINE ON STACK 
RTS PC :60 PROCESS ERROR 
$HIOCT: .WORD O HIGH ORDER BITS GO HERE 


-SBTTL BECIMAL TO BINARY CONVERSION ROUTINE 
Talelaiahnelehaiaileieiniaeieiaiaiielnisileisisileialciseiaisisiieisisieieieisileisisiieieisieieiaisiieieieiieie 


th 
i THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED 
OR COMMA. IF 


+ WITH A NULL <000> THE CHARACTERS ARE LEGAL, 
+ # IT WILL GENERATE A BINARY WORD PLACING IT ON THE STACK. 
$#CALL 

3% MOV <ADDRESS OF ASCII STRING» ,-(SP) 


2% JSR __ PC, DECBIN 
1 i ADDRESS OF ERROR RETURN? 
3% RETURN 


5% 
: 5 RELRRLAAALE ERE EEL LLAAA LAE LEELA LAR EA AERA LALLA ARE LE LALLA KARA REESE 


DECBIN: MOV RO,-(SP) ;SAVE RO 
MOV R1,-(SP) ;SAVE RI 
MOV Re, -(SP) SAVE Re 
MOV 10(SP),RO GET ADDRESS OF ASCII STRING 
CLR -(SP) CLEAR DATA WORD 
CLR ;SIGN SET ee STN 
CMPBs#’~, (RO) ;SEE IF A MINUS SIGN 
BNE es i BRANCH F NO MINUS SIGN 
MOVB (RO)+,R2 ;SAVE F TER USE 

es: MOVB (RO)+,R1 ;PICKUP THIS CHARACTER 
a ae 

’ ’ 

EEO 3$ :GET Out 2 COMMA 
CMPBSsé#’0,,R1 ;MAKE SURE THIS CHARACTER IS 
BGT S$ ; A DIGIT BETWEEN O 8 9 





een 
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CNB DECIMAL TO BINARY CONVERSION ROUTIN 
7022 1150 122701 009071 CMPB 3 s«w#9, RI 
7ue3 GSI Bas7ie 170000 tT 370000 (SP :DON'T LET MUMBER GET TO BIG 
. ) 
ces G31162 601 9¢6 BNE . sBRANCH IF NUMBER WOULD OVERFLOW 
7027 O31166 011646 MOV (SP), -(SP) ‘SAVE FOR LATER é 
7028 031170 906316 ASL (SP) : #4 
7029 O31172 006316 ASL (SP) : #8 
ost Oalie Iseas0 RVs SB OVERFLOW ISN'T @LLOED 
opt patlee 162701 000060 #’0,R1 :STRIP AWAY THE ASCII JUNK 
7033 031204 O60116 ADD R1, (SP) ADD IN THIS DIGIT 
co 031205 rt Bvs a ;OVERFLOW ISN’T ALLOWED : 
7036 Osiele 005/02 3S: qs Re CHECK TF NUMBER IS NEGATIVE __ 
5038 1216 O0S416 NEG (SP) eR On He eAT THE NUMBER ’ 
7039 p3iei6 012666 000010 4E: MOV (SP)+, 10(SP) : SAVE RESULT - 
7040 031224 012602 MOV (SP)+°Re RESTORE Re 
cou O3i2e Oieb0 MOV (SP)+;RI *RESTORE RI 
7042 O31 12600 MOV (SP)+’RO *RESTORE RO 
7043 O31232 062716 o0000e2 ADD #2, (SP) “ADJUST RETURN 
7044 031236 000207 2 RTS PC RET 
aS BES fee STB ge AREAS RTM near From soc 
7048 031244 012601 MOV (SP)+;R1 ; RESTORE Ri 
7049 031246 012600 MOV (5P)+'RO ORE RO 
7050 521250 013616 Nov giSP)4, (SP) iPUT pRbORESS OF ERROR ON STACK 
7052 on -SBTTL TYPE ROUTINE —~ . ee 
ree 4 LROUTINE TO TYPE Aecl? MEccnGe Mescnoe Mey TERT IWATE dite aa 
; FROU O TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
7056 j #THE TAOb TIRE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
fe ares: BLL Evid he" fatteh teaeatet BebLTReDS 
7059 HaNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
ope i **CALL: ' 
7062 p41) USING A TRAP INSTRUCTION 
7063 ie TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
rpee * TYPE 
7066 % MESADR 
r0E8 * 
7069 g3125H 105737 001157 STYPE: TSTB STPFLG 3;IS THERE A TERMINAL? 
aoe O31ebe a0008 HALT - i ;HOLT HERE IF NO TERMINAL 
aa95 031 a 1S: MOV RO,-(SP) ::SAVE RO 
7074 31668 fl cooone2 “MOV adetsP),RO i ery T ADDRESS OF aSCIzZ STRING 
7075 O31e74 112046 2s: nove (RO) +,*(SP) $3 SH CHARACTER 10 BE TY TYPED D ONTO STACK 
a8 031300 005726 TST (SP)+ +2 IF TERMINATOR POP IT ore THE STACK 
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ZR6RB. CNB TYPE ROUT 

7078 031302 012600 $0$: MoV rs RO + sRESTORE RO 

7079 931304 O6e716 oo000e 33: ADD (SP) ; ;ADJUST RETURN PC 

7080 031310 oo0002 RTI RE TUR 

208 ai3ie 2 000011 4$: CHEE pee : ERRANCH IF <HT> 

1 122716 000200 CNPB =. CRLF, (SP) :;BRANCH IF NOT <CRLF> 

7084 O31324 901006 SNE 

7085 1326 005726 TST (SP)+ dis: £CR «Le cauty 

7085 031330 104400 TYPE >: TYPE A CR AND.L 

7087 031332 001171 SCRLF 

7088 031334 105037 031470 CLRB § SCHARCNT 3 CLEAR CHARACTER COUNT 

7089 031340 000755 R GET NEXT CHARACTER 

7090 O31342 004737 031424 S$: ISR PC, STYPEC $360 TYPE THIS C TER 

7091 G31346 123726 001156 6S: CMPB = SFELLC, (SP)+ IS IT TIME FOR FILLER CHARS. ? 

7032 031352 001350 BNE TIF NO GO Ger NEXT CHAR. 

7093 031354 013746 001154 MOV $NULL, -(SP) *GET # OF FILLER CHARS. NEEDED 

7094 : AND THE NULL CHAR. 

7095 031360 105366 000001 7S: DECB «AC SP) *:DOES A NULL NEED TO BE TYPED? 

oes patsee ate 14 BL PC, STYPEC :38R Fon? a Ma 1 a 

reas Bat 338 nine BatiS9 DECB SCHARCNT *:D0 NOT COUNT AS A COUNT 

7039 031376 000770 : : LOOP 

101 sHORIZONTAL TAB PROCESSOR 

7103 031400 112716 ooo040 8S: MOVE ;;REPLACE TAB WITH SPACE 

7104 031404 004737 031424 93: JSR Bo, gi opec 3; TYPE @ SPACE 

7105 031410 1 000007 031470 BITB 87, SCHARCNT ; ; BRANCH RY NOT AT 

7105 931416 001372 BNE 93” AB ST 

7107 031420 005726 TST (SP)+ i DOE SPACE OFF STACK 

7108 031422 900724 BR 23 GET NEXT CHARACTER 

7109 031424 105777 147520 STYPEC: TSTB  ad$TPS tt MAIT UNTIL PRINTER IS READY 

7110 031430 1 BPL TYPEC 

7111 031432 116677 op0002 147512 MOVB 2(SP). aSTPB :;LOAD CHAR TO BE TYPED INTO para REG. 

7lle O31440 122766 GoO001S oo0002 CMPB 3s #CR, 2 LSP) *:IS CHARACTER A CARRIAGE RET’ 

7113 031446 001003 BNE 1$ *:BRANCH IF 

7114 031450 105037 031470 CLRB § S$CHARCNT ;;YES--CLEAR CHARACTER COUNT 

7115 031454 O00406 BR STYPEX 

7116 031456 122766 oO00012 o00002 1S: CMPB 4 s#LF, O( SP) its CHARACTER A LINE FEED? 

7117 O31464 001402 BEQ STYPEX *BRANCH IF YES 

7118 031466 105227 B  (PC)¢ COUNT THE CHARACTER 

7119 0631470 o00000 SCHARCNT: .WORD 0 *:CHARACTER COUNT STORAGE 
| ied 031472 000207 STYPEX: RTS PC 

sige .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
| 7124 3% THIS ROUTINE I USED TO EER SREE HE FLEE R SRLS ELE LEE RSE SL RAGE SS SELA LS 
| 7125 ATH ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 

7126 tASIGRED DECIMAL (ASCII) NUMBER AND TYPE I DEFENDING ON WHETHER THE 
| Fix *#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
| 7128 *#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
| 7188 j #REPLACED WITH SPACES. 
7131 MOV NUM, -(SP) ;;PUT_THE BINARY NUMBER ON THE STACK 
| 71 +" TYPDS :G0 TO THE ROUTINE 


cr 
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CNB CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
7134 031474 STYPDS: 
7135 O31474 O10046 MOV RO, -(SP) :sPUSH RO ON STACK 
fe fie beer my Gbisiae) Ha 02 Bar 
ota B3t208 nt MOV Ag*=( P) + BueH Ro gn STARK 
7139 031504 O10S46 MOV RS; -(SP) PUSH RS ON STACK 
7140 031508 912746 o20200 MOV #20200,-(SP)  ;:SET BLANK SWITCH AND SIGN 
7141 O315i2 016605 000020 MOV 20(SP);RS 23GE T R 
7142 031516 100004 BPL 1$ ::BR IF INPUT IS POS. 
7143 031520 ooS4OS NEG RS ::MAKE THE BINARY NUMBER POS. 
7144 031522 112766 o000SS oD000! MOVB = #=, 1(SP) *:MAKE THE ASCII NUMBER NEG. 
7145 031530 o05000 13: CLR RO ZERO THE CONSTANTS INDEX 
7148 031532 012703 031710 MOV #$DBLK,R3 :SETUP THE OUTPUT POINTER 
7147 031536 112723 OO00040 MOVB =”, (R3)+ ::SET THE FIRST CHARACTER TO A BLANK 
7148 031542 OooSo02 2s: CLR R2 CLEAR THE BCD NUMBER 
7143 O31544 016001 031700 MOV $DTBL(RO),R1 § $:GET THE CONSTANT 
7150 031550 160105 38: SUB R1,RS ::FORM THIS BCD DIGIT 
7151 031552 O02402 BLT Ug ::BR I 
7152 031554 o0S202 INC R2 *: INCREASE THE BCD DIGIT BY 1 
7153 031556 000774 BR 35 
7154 031560 060105 ug ADD R1,RS ADD BACK THE CONSTANT 
7155 031562 905702 TST R2 ::CHECK IF BCD DIGIT=0 
7156 O31564 001002 BNE c§ He HROUGH IF 0 
7157 031566 105716 TSTB 3s (SP) :STILL DOING LEADING 0’S? 
7158 031570 100407 BMI 75 -:BR IF YES 
7159 031572 106316 S$: ASLB =: { SP) 
7160 031574 103603 Bcc 65 ::BR IF NO 
7161 031576 116662 OO00001 177777 _MOVB 1(SP),-1(R3) 33 YES--SET THE SIGN 
7l62 931604 052702 o00060 6$: BIS #'0,Re *:MAKE THE BCD DIGIT ASCII 
7163 031610 OS2702 000040 75: BIS #’ 'R 3 IT A SPACE IF NOT ALREADY A DIGIT 
7164 031614 110223 MOVB Re, (R3)+ ?:PUT THIS CHARSETER IN THE OUTPUT BUFFER 
7165 031616 605720 TST (RO)+ JUST INCREMENTING ‘i 
7166 031620 Oe0027 oD0010 CMP RO, #10 :CHECK THE TABLE INDEX 
| 7167 031624 002746 BLT 2s ::G0 DO THE NEXT DIGIT 
7168 031626 003002 BGT ::G0 TO EXIT 
| 7168 031630 010502 MOV «RS, R2 GET THE LSD 
| 7170 031632 000764 ::G0 CHANGE TO AS 
| 7171 031634 105726 8S: TSTB  s- (SP)+ *:WAS THE LSD THE FIRST NON-ZERO? 
7172 031636 100003 BPL ::BR IF No 
7173 O31640 11b663 177777 177776 MOVE  -1(SP),-2(R3) $:YES--SET THE SIGN FOR TYPING 
7174 031646 10501 gS: CLRB —s- (R3) ::SET THE TERMINATOR 
7175 0631650 012605 MOV (SP)+,R5 ::POP STACK INTO R 
| 7176 031652 012603 MOV (5P)+’R3 POP STACK INTO R3 
| 7177 031654 Ole6de MOV (SP)+'R2 POP STACK INTO R2 
| 7178 031656 Ol2601 MOV (SP)+’RI ::POP STACK INTO Rl 
7179 031660 012600 MOV (SP)+'RO *:POP STACK INTO RO 
7180 031662 104400 031710 TYPE SDBLK ?:NOW TYPE THE NUMBER 
| 7181 O31666 016666 000002 oo0004 MOV 2(SP),4(SP) ADJUST THE STACK 
| 7182 O31674 Olebi6 V (SP)+) (SP) 
| 7183 031676 oo0002 RTI : RETURN TO USER 
| 7184 031700 o23420 SOTBL: 10000. 
| 7185 031702 001750 1000. 
' 7186 031704 000144 100. 
| 7187 031706 000012 10. 
| 7188 031710 600004 $DBLK: .BLKW 4Y 
| 7189 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


| 
| 


















pobeaoree USER DEFINED TEST MACY11 27(732) O3-NOV-76 22:40 PAGE 155 


7 (732) 
ZRERB. CMB BINARY TO OCTAL (ASCII) AND TYPE 





7190 
7191 $3 RELA K ALLAAH ALLELE RARER S EKA KRALL E LL HALE SKAS KE RAELE LK EL LEZ EFLEE 
7192 :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
7193 »*OCTAL (ASCII) NUMBER AND TYPE IT. : 
cig s #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
719 :# MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
7197 :* TYPOS *:CALL FOR TYPEOUT 
7198 + % .BYTE N *:N=1 TO & FOR NUMER OF DIGITS TO TYPE 
7199 :% -BYTE M ::M=1 OR O 
7200 .% ;;1=TYPE LEADING ZEROS 
5e01 33 +:Q=SUPPRESS LEADING ZEROS 
7203 :#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
7204 -*STYPOS OR STYPOC 
7205 ;*CALL: 
:% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
7207 33 TYPON *:CALL FOR TYPEOUT 
7209 :¥$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7210 > ¥CALL: 
7ell :% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
ele % TYPOC *:CALL FOR TYPEOUT 
7214 031720 017646 OO0000 $TYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
7215 031724 116637 000001 032143 MOVB 1(SP),$OFILL #;;LOAD ZERO FILL SWITCH 
7216 031732 112637 032145 MOVB  (SP)+,S$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
217 031736 062716 ADD #2, (SP) *: ADJUST RETURN ADDRESS 
18 031742 o00406 BR STYPON 
7219 031744 112737 O00001 032143 STYPOC: MOVB #1,S$OFILL ;;SET THE ZERO FILL SWITCH 
7220 031752 112737 OO0008 032145 MOVB  #6,$0MODE+1 >:SET FOR SIX(6) DIGITS 
7eel 031760 112737 OO0000S 032142 S$TYPON: MOVB  #5,SOCNT :;SET THE ITERATION COUNT 
7ecee 031766 010346 MOV R3,-(SP) -:SAVE RI 
7e23 031770 O10446 MOV RG, -(SP) zs RY 
7224 031772 O10S46 MOV RS. -(SP) : SAVE RS 
7e25 031774 113704 032145 MOVB  $OMODE+1,R4 ;:GET THE NUMBER OF DIGITS TO TYPE 
7ee6 032000 o05404 NEG RY 
7227 O32002 062704 ADD #6, ;;SUBTRACT IT FOR MAX. ALLOWED 
7228 032006 110437 032144 MOVB RY. SOMODE ;;SAVE IT FOR USE 
7229 O320l2 113704 032143 MOVB  S$OFILL,RY +:GET THE ZERO FILL SWITCH 
7230 032016 016605 o000l1e MOV 12(SP), RS ::PICKUP THE INPUT NUMBER 
7231 O32022 o05003 CLR R3 >:CLEAR THE OUTPUT WORD 
7eze 032024 006105 19: ROL RS >:ROTATE MSB INTO “C™ 
7233 032026 O00404 . BR 35 *:GO DC MS 
| 7234 032030 006105 2s: ROL ::FORM THIS DIGIT 
7235 032032 006105 ROL 
7236 032034 006105 ROL 
| 7237 032036 010503 MOV 
| 7238 032040 006103 3: ROL 
| 7239 O32042 105337 022144 DECB 
| 7240 032046 100016 BPL 
| Ze4l 032050 042703 177770 BIC 
| 7e42 032054 001002 BNE 
| 7e43 TST 
| 7244 032060 001403 BEQ 
| 7245 O32062 005204 4S: INC 
| 
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000004 


032150 
032152 


000060 .: 
000062 


146720 


YPE 
Bis #'0,R3 + :MAKE THIS DIGIT ASCII 
S$: BIS #’ | R3 :MAKE ASCII IF NOT KLREADY 
MOVB RB, AS ::SAVE FOR TYPING 
TYPE 8 $3G0 TYPE THIS DIGIT 
73: DECS $0CNT : COUNT 
BGT 2g TBR IF NORE TO DO 
SLT 6S BR I 
INC RY {INSURE CAST DIGIT ISN’T A BLANK 
BR 2 G0 DO THE LAST DIGIT 
6S: MOV (SP)+,RS : :RESTORE fis” 
MOV (SP)+°RY j SRESTORE RY 
MOV (SP)+'R2 t RESTORE R3 
MOV 2(SP)'4(SP) pp THE STACK FOR RETURNING 
nov (SP)+) (SP) 
ag .BYTE 0 ict ORece FOR ASCII DIGIT 
BY 0 :: TERMINATOR FOR TYPE ROUTINE 
SOCNT: ‘BYTE 9 *:OCTAL DIGIT COUN 
SOFILL: .BYTE 0 ZERO FILL SWITCH 
SOMODE: -WORD 0 *:NUMBER OF DIGITS TO TYPE 


-SBTTL TTY INPUT ROUTINE 
5 RRR ERE E HEE EAA R EE EE EE KEKE EERE EERE EERE EEE LEER EE EA REESE 


$TKCNT: .WORD OQ ; NUMBER OF tTENS IN QUEUE 
STKQIN: .WORD i oureur’ ® Point 


;*TK INITIALIZE ROUTINE 
;#7H S ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;*#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


ieee 

3% JSR PC, STKINT 

: RETURN 

STKINT: CLR STKC ;CLEAR COUNT OF ITEMS IN oa 


MOV A STKOSRT $TKQIN i MOVE THE E STARTI NG ADDRESS OF THE 
MOV STKQIN, STKQOUT }:QUEUE INTO THE INPLIT & OUTPUT POINTERS. 
MOV #STKSRYV DTKVEC js INITIALIZE THE KEYBOARD VECTOR 

MOV #200, a#TKVEC+ 33"BR" LEVEL 4 


TST aSTKB *CLEAR DONE FLAG 
MOV #100, aSTKS ENABLE TTY KEYBOARD INTERRUPT 
RTS PC ?:RETURN TO CALLER 


;*#TK SERVICE ROUTINE 
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
;#BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


;*IT THE QUEUE. 
;*IF THE CHARACTER IS A “CONTROL-C™ (¢C) STKINT IS CALLED AND 
;*UPON RETURN EXIT IS MADE TO THE "CONTROL-C” RESTART ADDRESS (UNTSRT) 


érksRv: MOVB @$TKB,-(SP) ;;PICKUP THE CHARACTER 





le 
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7357 032476 001300 BNE 2 ;3;1F NOT, PUT IT IN THE TTY QUEUE 


7302 032232 042716 177600 Bic #10177, (SP) : STRIP THE JUNK 
7303 O3ee36 021627 000003 CMP (SP), #3 ::IS IT A CONTROL C? 
7304 032242 001007 BNE 1$ ::BRANCH IF NO 
Re Hes ES RIE Weer HEINEY Bae ENB 
7307 032254 005726 TST (SP)+ *:CLEAN UP STACK 
7308 O32c¢56 900137 004116 IMP UDTSRT CONTROL C RESTART 
7309 O3e2b2 021627 000007 1S: CMP (SP), #7 ::IS IT A CONTROL G? 
7310 032266 001004 BNE : H IF NO 
7311 032270 0O¢2737 000176 001140 CMP ¥SWREG, SUR 21S SOFT-SWR SELECTED? 
sie 032276 o01S00 BEQ 6S ::G0 TO SWR CHANGE 
7314 032300 BS: 
7315 032300 022737 900001 032146 CMP #1, STKCNT 31S THE QUEUE FULL? 
7316 032306 91004 BNE 3$ ::BRANCH IF NO 
7317 032310 108400 O01164 TYPE SBELL ::RING THE TTY BELL 
318 036315 0s726 IST LSP + i sCLERN CHARACTER OFF OF STACK 
032320 ates oor023 3S: CMP (SP), #23 ::IS IT A CONTROL-S? 
7321 032324 001021 BNE 323 ::BRANCH IF NO 
oa55 Dsesae ppeven | ele Oe iO PAN-CHAR OFF StAcK 
7324 O32 105777 146604 318: TSTS aSTKS :WAIT FOR AC 
7325 932340 100375 BPL 31$ >:LOOP UNTIL ITS THERE 
O32s42 117745 146600 MOVB § aSTKB,-(SP) :3GET THE CHARACTER 
7307 03234 042716 177600 BIC #10177, (SP) MAKE IT 7-BIT ASCII 
| 328 D325 Deebe7 000021 CHP (SP )+, bl i315 IT A CONTROL=~d? 
7330 032360 012777 000100 146556 NOV #100, 2STKS ; ;REENABLE TTY KEYBOARD INTERRUPTS 
7332 032370 ieee 032146 325: IN $TKCNT COUNT THIS CHARACTER 
| $333 Qasano posaas CCN ce gg HO bt ORONCH IF YES 
7335 Dede elbe? 000175 CHP (SP), #175 i315 11 A SPECIAL CHAR? 
7337 BaSui8 neat 900049 BIC #40, (SP) +iMAKE IT UPPER CASE 
en a eee ee et 
| 7340 032150 032155 * CMP STKGIN, #STKQEND ;;GO OFF ? 
7341 032432 001003 BNE : BRANCH IF NO 
7342 032434 612737 032154 032150 MOV WSTKQSRT,STKGIN };RESET THE POINTER 
| 73H3 o3ze442 oodo02 SS: RTI : RETURN 
| 7a SLEOFTWARE SWITCH REGISTER CHANGE ROUTINE, 
| 7347 ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
7348 , **¥SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
| 73u9 {¥CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
| 7350 032444 022737 000176 001140 §CKSWR: CMP #SWREG, SUR 31S THE SOFT-SWR SELECTED 
| 7351 O3204S2 001124 BNE 5 ::EXIT IF NOT 
032454 105777 146464 TSTB © ASTKS 21S A CHAR WAITING? 
| 7353 O32460 100121 BPL 15$ ::IF NOT, EXIT 
| 7354 O3eube 117746 146460 MOVB § aSTKB,-(SP) rt 
| 7355 030466 042716 177600 — gic #tC177, (SP) *:MAKE IT. 7=BIT ASCII 
| 7356 032472 021627 000007 CMP (SP), #? 21S IT A CONTROL-G? 
| 
| 








a et ee ee ee ete te re 
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5338 ;;AND EXIT Sale ‘ 
7380 LeONTROL 18 PASSED TO Tule PON’ fhm tinan fa te imore 
? 31 ; CONTROL 1s cone: TO atts ieee at eI "i TTY adTERRUET SERVICE 
? #ROUTINE OR F OuITeN FECT S A RESULT CF A 
7363 ;sCONTROL-§ BEING eee AND THE SOFTWARE H ReojsTER Ete SELECTED. 
7364 932500 e372" no1134 ooccd1 6&8: MP2 Sautoe bt : BRE WE RUNNING IN AUTO-MODE? 

sae 03251 a8 aE) *, + iClear conTRoL G OFF STACK 

‘ = , is r 

538 pasei8 peacgs 032156 JSR PE STKINT FLUSH THE TTY INPUT aUELE 

7368 0320516 005077 i464e2 CLR astks tS OTEABLE TTY Te TposRO Tat =RRUPTS 
7389 032522 112737 OO0S01 901135 MOVB 81, SINTAG SET INTERRUPT MODE INDICPTOR 
2350 104400 033436 TYPE »$CNTLG ss CHO THE CONTROL =G (3G) 

o08 O4400 033443 SGTSWR: TYPE CURRENT CONTENTS 

7374 ila TyPOC ire, (SP) 5B FYB eGCTON. ASCTTIALL DICITS) 
7375 pacete the 033454 TYPE  ,SMNEW 1160 Type- FOR NEW SWR 

7376 pasecs bocce 19$: CLR (SP) CLEAR COUNTER 

7377 pacoe? CLR -(SP) - +3 THE Pa SuR 

7378 105 146362 78: TST8 = AS TKS CHAR THERE? 

73739 032562 1 BPL 7§ sit NOT TRY AGAIN 

sae 032564 117746 146356 MOVE  a$TKB.-(SP) :;PICK UP C 

7388 032570 042716 177600 BIC #tC17?, (SP) ::MAKE IT seer ASCII 

7384 032574 021627 000003 CMP (SP), #3 3315 17 A CONTROL~C? 

7385 00101 BNE 93 + T 

738 O32 g94e4 TYPE SCNTLC 3 YES foto CONTROL-C (tC) 

7287 ADD 6 SP *:CLEAN UP S 

7388 032612 leave? 001135 900001 CHP SINTAG, #1 i Boner Ir 1 KEYBOARD INTERRUPTS? 
5353 Bistes 012777 000100 146314 MOV #190 0,98TKs ;:ALLOW TTY KEYBOARD INTERRUPTS 
7331 000137 OO4116 8S: IMP ::CONTROL-C RESTART 

72393 

728 032634 021627 000025 2g; CMP (SP), 825 ::IS IT A CONTROL-U? 

7323 bseb40 951005 BNE 10 ::BRANCH IF NOT 

73% 1 033431 YPE SCNTLU +: YES. ECHO CONTROL-U (fu) 

7397 ‘Beebue 062706 9000006 208: ADD be. SP >: IGNORE PREVIOUS INPUT 

72% 000737 BR 19¢ LET'S TRY IT AGAIN 

Le i: 

7401 032654 021627 OD0015 10$ CMP (SP), #15 s3IS IT A <CR>? 

mics Gaseee Bee p00DD TST ies. TE a Ae OMe FIRST CHAR? 

7404 O22666 rie 115 *:BRANCH IF YES 

7405 032670 016677 O00002 146242 MOV 2(SP), aSWR >:SAVE NEW SWR 

7406 022676 0& 000006 11$: ADD #6, SP *:CLEAR UP STACK 

7407 104409 61171 148: ‘TYPE SCRLF $ ECHO <¢R> AND LF) 

7408 632706 1 001135 000001 CMPB «0s SINTAG, #1 * RE-ENABLE TTY KBD INTERRUPTS? 
7409 14 001 BNE 15$ ::BRANCH IF NOT 

7410 b3e71e 000100 146220 8100, 3$TKS s RE-ENABLE TTY KBD INTERRUPTS 
7411 1S$: RTI 3 ;RETURN 

7412 032726 004737 031424 16$ ISR PC, STYPEC *:ECHO CHAR 

74,3 021627 CMP (SP), #60  ticHAR < 0? 





re ee ee a ee ee ee  cnee 
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7414 LT 18$ :;BRANCH IF YES 

pale B35538 GOES coonee ae (SP), #67 tiChar > 7? 

o48 pseras 003015 BGT 183 ::BRANCH IF YES 

74} 272 O00060 BIC #60, (SP)¢ ::STRIP-OFF ASCI 

eig O3e5e ocogo2 TST 2(5P) +215 THIS THE FIRST CHAR 

74] 14 EO 173 ::BRANCH IF YES 

7420 936760 1 ASL (SP) ::NO, SHIFT PRESENT 

ous S Boosie aa ftp) $} BOON POR NEN ONE™ 

bass Sascee BESE oonone 178: INC 2tSP) SIKEEP COUNT OF CHAR 

74D4 S3e77e OS6E16 177776 BIS =2(SP), (SP) ::SET IN NEW CHAR 

7425 00C&67 BR 7§ ::GET THE NEXT 

7426 033000 194400 001170 18$: TYPE SQUES i: TYPE 2<CR><LFD 

7457 033004 000720 20$ ::SIMULATE CONTROL-U 

7458 .DSABL LSB 

ne 

74231 ss SSESSFSLEFSELALSLERA ES FEELS LAE SSAFSSSS” SHLSEFESEFESELEESFAFESASEFES 

me sATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

7534 ; ” RDCHR 5;GET A CHARACTER FROM THE QUEUE 

7435 :# RETURN HERE *:CHARACTER IS ON THE STACK 

re # ::WITH PARITY BIT STRIPPED OFF 

7428 : 

7439 03300 CLis4s SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC AND 

Pa eed Beeeee | Boobes UR ASP) ,2¢SP) 1 OF Peay FOR A CHARACTER 

7443 033024 ve 033032 Sit ais. (SP) ssPUT NEW Be ON seretK 

ae 033030 ae ae RTI : POP NEW PC AND PS 

rae 632032 905737 032146 1S: Ts? STKCNT ;;WAIT ON A CHARACTER 

7448 033040 005337 032146 Fre STKCNT ;;DECREMENT THE COUNTER 

7449 033044 117766 177102 oo00004 MOVS § aSTKQOUT,4(SP) ;:GET ONE CHARACTER 

7450 033052 heaae 032152 INC $TKQOUT >: UPDATE THE POINTER 

7451 0332056 023727 O3c0152 032155 CMP STKQOUT, #STKGEND'::DID IT GO OFF OF THE END? 

7452 033064 001002 BNE 2S 33 F 

7453 033066 012737 032154 032152 MOV SSTKOSRT, STKQOUT’; ;RESET THE POINTER 

7454 023074 900002 2s: RTI » RET 

7455S 3 PESTTUTTETT STITT TTT TT TTT TT TE TTS TTTTETTTE TTT TTTT TTT TTETT Tete TT 

7456 *&THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

7457 3 *CALL: 

758 *% . ROLIN ;; INPUT _A STRING FROM THE TTY 

745 # RETURN HERE *:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

7466 2 +; TERMINATOR WILL BE A BYTE OF ALL O'S 

10346 SROLIN: MOV R3,-(SP) ;;SAVE 

ries neat eat CLR -( SP) + OPER THE RUBOUT KEY 

7464 032102 012703 033332 1$: MOV #STTYIN,R3 *:GET ADDRESS 

7465 632108 656703 033424 2s: ce aSTTYING2, Ra 3s BUFFER veut? 

rags 033114 tee BECRR ‘ He FF ao ONE CHARACTER FROM THE TTY 

7468 O33116 112613 MOVB  (SP)+, (R3) GET CHARACTER 

7463 033120 122713 000177 10$:  CMPB  #177,{R3) -:IS IT A RUBOUT 
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7470 1 N S +:BR IF_NO 

aa peat Bberie ry (3p) 38 Ths THe riest mort? 
7473 132 tee 000134 033330 MOVE =-&"\,, 98 :: TYPE A BACK SLASH 

7474 033140 10%400 023330 TYPE 9 

7475 033144 612716 177777 MOV b-1, (SP) :;SET THE RUBOUT KEY 

7476 033150 905303 6S: DEC : BY ONE 

7477 O33 122 020327 033332 CMP R3, sSTTYIN STACK EMPTY? 

7478 O33156 103434 BLO 4 ::BR IF YES 

7479 «933160 111337 033330 MOVB  (R3),9$ SETUP TO TYPEOUT THE DELETED CHAR. 
7480 O331E4 104400 033330 TYPE 33 +: 

7481 933170 p07 BR 2g G0 READ ANOTHER CHAR. 

033172 716 cS: TST (SP) :RUBOUT KEY SET? 

7483 033174 001406 BEQ 7 $s 

7484 033176 112737 000134 033330 MOVB  -8’\, 98 : TYPE A BACK SLASH 

748S 033204 104400 TYPE ot} 

7486 033219 O0S016 CLR tsp) s;CLEAR THE RUBOUT KEY 

7487 033212 122713 o00025 73: CMPB «#25, (RB) *:IS CHARACTER A CTRL U? 

7488 033216 001003 BNE ::BR IF NO 

7489 033220 104400 023431 TYPE SCNTLU >: TYPE A CONTROL “U™ 

7499 0332224 000726 BR :G0 START OVER 

7481 033226 122713 000022 gS: CMPB ss #22, (R3) :1S CHARACTER A “tR"? 

rs 03232 05101 BNE 3 :: IF NO 

rag O33e% p40 001171 Tee SCR ivee acre 8 “LE 

7495 033242 104400 *STTYIN *: TYPE THE INPUT STRING 

74% 033246 000717 BR 2g *:GO PICKUP ANOTHER CHACTER 
7497 033250 104400 001170 4§: TYPE SQUES >: TYPE A ’?? 

7498 033254 000712 oR >:CLEAR THE BUFFER AND LOOP 

7499 533258 111337 033330 3 MOVB (R3),98 *:ECHO THE CHARACTER 

7500 1044900 032330 TYPE 

7501 O33e66 122723 600015 CMPB) «= s«IS, (R34 :;CHECK FOR RETURN 

7502 O33e7e 001305 BNE 2s ::LOOP IF NOT RETURN 

7503 033274 105063 177777 CLRB 3s = 11 (R3) CLEAR RETURN (THE 15) 

7504 033300 104400 001172 TYPE >: TYPE A LINE FEED 

7505 023304 005726 TST (SP )+ *:CLEAN RUBOUT KEY FROM THE STACK 
7506 033306 012603 MOV (5P)+,R3 : RESTORE R3 

7507 033310 O11646 MOV (SP). *(5P) ADJUST THE STACK AND PUT ADDRESS OF THE 
7508 O3sa3le O16666 o00004 oDD002 MOV 4(SP} 2(SP) FIRST ASCII CHARACTER ON IT 
75093 012766 033332 Oo00004 MOV sSTTYIN, 4(SP) 

7510 033326 po0002 RTI ; ;RETURN 

7511 000 9S: .BYTE 0 >: STORAGE FOR ASCII CHAR. TO TYPE 
75l2 033331 000 “BYTE 0 :: TERMINATOR 

7513 033322 000072 STTYIN: .BLKB 72 RESERVE 72 BYTES FOR TTY INPUT 
7514 033424 041536 o0so1s 000 SCNTLC: :ASCIZ /tC7<15><12> $3CONTROL “C™ 

7515 033431 136 006525 000012 SCNTLU: .ASCIZ /tU/<15><12>  ;;CONTROL “U" 

7516 033436 042536 OOSOIS 000 $CNTLG: :ASCIZ /#G/<15><12> CONTROL “G" 

7517 033443 015 051412 OSil27 SMSWR: .ASCIZ <15><12>/SWR = / 

Fei O35464 DSCMD baecie 

7519 020040 042516 020127 SMNEW: .ASCIZ / NEW =/ 

7520 033462 020075 000 

7521 033466 EVEN 

rece “SBTTL DOUBLE LENGTH BINARY. TO DECIMAL ASCII CONVERT ROUTINE 
7524 s3 LKAKRLARARALERERAERASHRA AAAS SASRERKRAAAARAAARRASKRA REL AREER AS RRL RERE 
7525 *&THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
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AS 
pa 
TIVE. 

MOV 


RETURN 


NOV=-76 
SCII CONVERT ROUTINE 


(ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 





22:40 


8PNTR, -(SP) 
PC, aa$0B820 


ES TNPURSE, RS 
(R4),R1 
(RS),Re 

3$ 

R3 

es 

(R4)+,R1 


(R4)+,Re 
(RS)+ (RS)+ 
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;;POINTER TO LOW WORD OF BINARY NUMBER 


3; THE FIRST ee OF sorts 
3321S ON THE STA 


;;SAVE REGISTERS 
+ 3PICKUP THE DATA wpe TER 
;GET ADDRESS OF “SDEC TRING 
3 SPUT ADDRESS OF ASCIZ STRING ON STACK 
;;PICKUP THE BINARY NUMBER 


:;SET UP TO DO 10 CONVERSIONS 
;;ADDRESS OF TEN POWER 


;;CLEAR PARTIAL 
;; SUBTRACT TEN POWER 


;B8R IF TEN POWER TO LARGE 
; FADD 1 TO PARTIAL 


LOOP 
;;RESTORE SUBTRACTED VALUE 


;;MOVE TO NEXT TEN POWER 
tte PARTIAL TO ASCII 
;3;9AVE IT 

9” 


;BR IF 
: TERM INATOR 
peste REGISTERS 


;;1.0E00 








i 
1 
H 
j 
; 
| 


j 


sa TP yes USER 


| 


fe 
7584 
7585 


7387 
7588 


7590 
7591 
7532 
7533 
7594 
733s 
75% 
7397 
7338 
7599 


Bee Reb Res 


stigtaatatatgtas 
WO NOU .£ wrt 


DERERERRRRORRR 


soto 
ER 


j 
| 


033644 900000 
033646 000014 
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DOUSLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


0 
SDECVL: .BLKB 12. RESERVE STORAGE FOR ASCIZ STRING 
.SBTTL SAVE AND RESTORE RO-RS ROLTINES 


: 5s ERRRRLEAS SASL SS ELELELELLESAAFLE LEELA LLSLEAELEL ES SALELELALESEAAE 
‘ TESAVE RO-RS : 
;*CALL: 

3% SAVREG 

; #UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
:#T0P-=-(+16) 


3# +2---(418) 
pe +4---R5 
3# +6---R4 
3% +8---R3 
;#+10---R2 
4 3#+le---R1 
3 #+14---RO 
: SSAVREG: 
010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
010146 MOV R1,-(SP) >:PU'SH R1 ON STACK 
010246 MOV Re, -(SP) *:PUSH Re ON STACK 
010346 MOV R3,-(5P) ::PUSH R3 ON STACK 
010446 MOV RY’ -(SP) *:PUSH RY ON STAC 
010546 MOY RS. -(SP) *:PUSH RS ON STACK 
O16646 o00022 MOV 22tSP),-(SP) $3 SAVE PS OF MAIN FLOW 
Ol6646 00022 MOV 22(5P)'-(5P) 3:SAVE PC OF MAIN FLOW 
016646 000022 MOV 22(5P),-(SP)  +3;SAVE PS OF CALL 
016646 o00022 MOV 22(5P);-(5P) 3:SAVE PC OF CALL 
o00002 RTI . 
;#RESTORE RO-RS 
CALL: 
* RESREG 
SRESREG: 
012666 oo0022 MOV (SP)+,22(SP) ;;RESTORE PC OF CALL 
012666 o00022 MOV (SP)+,22(5P) ;;RESTORE PS OF CALL 
Ole666 o00022 MOV (SP)+,22(5P)  ;:RESTORE PC OF MAIN FLOW 
O1gebe o00022 MOV (SP)+,22(5P) ::RESTORE PS OF MAIN FLOW 
12605 : MOV (5P)+;RS *:POP STACK INTO RS 
012604 MOV (5P)+,R4 *:POP STACK INTO RY 
012603 MOV (SP)+/R3 *:POP STACK INTO R3 
012602 MOV (SP)+,R2 ::POP STACK INTO Re 
01260 MOV (SP)+/RI *:POP STACK INTO RI 
51 SE MOV (SP)+, RO ::POP STACK INTO RO 


RTI 
~SBTTL RANDOM NUMBER GENERATOR ROUTINE 


"5 7 HHH HHH 
sKTHIS ROUTINE IS A PRECISION PSEUDO RANDOM NUMBER GENERATOR 
;*#WITH A RANGE OF 0 TO 2(+33)-1. 


tt JSR PC, SRAND 5;CALL THE ROUTINE 
te © ORETURN TT RETURN HERE THE RANDOM 
;* > NUMBER WILL BE IN 








DGRGAS.CNS ~~ RANOGH NUBEER GENERATOR 


Ha | 








7ei0 rene ane 
peas Base Bipiue 
7643 033762 010246 
7644 033764 913700 034056 
7645 033 013701 034054 
7646 033774 012702 17777! 
7647 O34 006300 
7648 10 
ree 034006 oo1374 
7651 O3401 00 o340S6 
7652 0340.4 005501 
7653 O34016 063701 O34054 
ope nated Was ain cas 
opes nett 4 peas 034056 
7658 O34040 010137 034054 
7659 O34044 012602 
7660 O3404% 012601 
7661 O340S0 012600 
7662 O340S2 000207 
7663 034054 176543 
7664 034056 123456 
7665 
7666 
7667 
7668 
7669 
7670 
7671 
7672 
7673 034060 010046 
7674 O34062 010146 
7675 034064 013746 cono04 
7676 034070 O1 000006 
7677 034074 010600 
7679 034076 013746 000034 
7680 034102 012737 O341l2 000034 
~ 7681 OsH119 i 
| 7682 O341le 01 po0002 ocp0006 
| 7683 Glee 012716 034126 
reBe l ied 000034 
| es OMI3 O1e7s7 34152 000004 
7687 raetege 
| 7688 nests phestt 
789 Gaulae O0s7el 
| oe pai teS OeraT ooooce2 
| 7692 O34156 010006 
| 7693 034160 012637 000006 
} 
| 
1 


ec (7 
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rut 


3; SHINUM, SLONUM 
SRAND: 


MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) PUSH RI ON STACK 
MOV Re’ -(SP) *:PUSH R2 ON STACK 
MOV $LONUM, RO ::SET RO WITH LOW 
MOV SHINUM; R1 ;}5€T Rl WITH HIGH 
MOV #-7,R2 :SET SHIFT cou T 

18: ASL RO +: SHIFT EFT 
ROL Ri j ROTATE C RY ght Ri AND 
INC R2 : CHE 
BNE 1$ | CONTIN er 
ROD SLONUM, RO ae nie K 129 

: ; 

ADD SHINUM, RI i HERO NUMBER TO" TO MAKE X 129 
ADD #1057,R0 ::ADD LOW CONSTANT 
ADC 1 ::PROPOGATE CARR 
ADD #47401, R1 ; ;ADD_HIGH CONSTANT 
MOV , SLONUM 33 SAVE RO 
MOV Ri’ SHINUM SAVE Ri 
MOV (SP)+, Re 5 3 POP STACK INTO Re 
MOV (SP)+°RI *POP STACK INTO RI 
MOV (SP)+°RO ::POP STACK INTO RO 
RTS PC ; ;RETURN 

SHINUM: .WORD 176543 


SLONUM: .WORD 3456 

-SBTTL ROUTINE TO SIZE MEMORY 

: hs ror amare iameanect 6 er ie pain ennai np iotets: 
: + im PC, SSIZE 

i SSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 


$SIZE: MOV RO,-(SP) s;SAVE RO ON THE STACK 
MOV R1’=-(SP) >SAVE R1 ON THE STACK 
MOV DHERRVEC,-(SP) 3:SAVE BRESENT ERROR VECTOR PS & PC 
MOV QHERRVECH2, -(SP)’ 
MOV SP. RO -SAVE THE STACK POINTER 

;;SET THE ERRVEC PS TO THE PRESE At? ps 
Nov JSTRAPVEC,-(SP) ;;SAVE CURRENT TRAP VECTOR 
MOV #64, J8TRAPVEC ; 3 SETUP NEW TRAP VECTOT 
TRAP PSW AND PC ON STACK 

64S: MOV 2(SP), aSERRVEC+E >;SAVE PSW IN a#ERRVEC+2 
MOV #658, (SP) *REPLACE OLD PC WITH NEW 
RTI ngsront PSW 

65S: MOV (SP)+, Q8TRAPVEC ::RESTORE OLD TRAP VECTOR 
MOV #2$, JKERRVE sSET FOR TIMEOUT 
MOV #20000, R1 ; FIRST Ss 

1S: TST (RL) ‘TEST TH Ss 
TST (R1)+ ii STEP TO NEXT ADDRESS 
BR 1$ :: TRY ANOTHER 

es: ae Sy oe 


;RESTORE T eae 
(Shis, DWERRVEC#E ; ;RESTORE ERROR VECTOR 















o 


segs 


otcrorato* 
SLBVF 


PPPSEELP SPOR ADD RNAM DARN ERREEE ESC T EET’ 


CNB 


RK611/RKOS USER DEFINED TEST 
OZRERB. 





ROUTINE TO SIZE MEMORY 


Biro Oi8t3? 


034202 


= 


Ptatett Stapp Seater 
Rapeeeeess 


eS & 


8 
he 


See 


i 


ee 


090004 
034202 


034344 
000340 


047520 


000024 
900026 


ocode4 


ooode4 
000026 


042527 
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MOV iF ot DWERRVEC - 






MOV 1, $LSTAD $L 8ST ADDRESS 
MOV Copss RI RESTORE RI 
Hoy (SP)+,RO t TRESTORE ne 
SLSTAD: .WORD 0 “CONTAINS THE LAST ADDRESS 






-SBTTL POWER DOWN AND UP ROUTINES 


H eae his SE eee 
jPOWER DOWN ROUT 
SPURON: MOV ¥SILLUP, QSPWRVEC ;;SET FOR FAST UP 
: toy #340 a aPURVEC+E 5 3PRIO:7 





-(Sp > PLUSH ko ON STACK 
MOV RT (SP) *:PUSH_R1 ON STACK 
"=(SP) *:PUSH Re ON ST 
MOV R3,-(SP) ;;PUSH R3 ON ST 
MOV RY, -(5P) ::PUSH RY ON STACK 
MOV RS; -(SP) >:PUSH RS ON S 
MOV asin -(SP 3 PUSH @SWR ON STACK 
MOV SSAVRE :SAVE SP - 
HOV. ESPERUP  SEPWRVEC’ ;;SET UP VECTOR 
2 ;;HANG UP 
« KLLFLARLERKE LLL SLA AA LAL ELAR EA AAAS LKEE HARASS RE SLE KA EAE RE SEEKE 


BOWE NE 
épuRuP: MOV SSILLUP GAPURVEC ;,SET_EOR FAST DOKN 


MOV SSAVR6, SP T 

CLR SSAVRE tt ATT OOP FOR THE TTY 
1S: Inc 5A :tMAIT FOR THE INC 

MOV (SP)+, ISWR top STACK INTO aSWR 

MOV (SP)+'RS *:POP STACK INTO RS 

MOV (5P)+/R4 ::POP STACK INTO 

MOV (SP)+'R3 *:FOP STACK INTO R3 

MOV (5P)+/Re 3 STACK INTO Re 

MOV (SP)+:R1 

(SP)4’RO NTO 


ck 


MOV RO 
MOV SSPURON, ANPWRVEC’: ; joel UP THE POWER DOWN VECTOR 
MOV #340, J#PWRVEC+2 ;:PRIO:7 
TYPE the EPORT THE POWER FAILURE 
SPWRNG: giioRo SPOWER >:POWER FAIL MESSAGE POINTER 
SILLUP: HALT 3; THE POWER UP SEQUENCE WAS STORTED 
3R 2 ?: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRE: O 2 , ¢3PUT THE SP HERE 
SPOWER: .ASCIZ <15><12>"POWER 


EVEN 
-SBTTL TRAP DECODER 


iyaIG ROUTINE iLL PICK The UME BYTC Or The ele oes 
tT ETHIS ROUTING WI PICKUP THE “TR ap NSTRUCT ION 
j#AND USE I A RDUGKY THe THA TABLE FOR THE STARTING ADDRESS 

THE DESIRED OR Ne, THEN USING THE ADDRESS OBTAINED IT WILL 
$560 TO THPT ROUTINE. 











Fad 
o 
~ 
i 
“ 





© 


DULLER ReRRPReeeer enrich SeNRS RASS cra Ganon enna é 
- 
he 





034362 
034364 


034376 
034402 








RKO& USER per AND TEST 


AP DECODER 


034370 
Bard ddeaoo 


Cesen | 


~ 
x] 


eo 
=< 
f 


ap 
z Seas 


aferasatstls 


oo00d2 


o34404 


385 


Be 


Baa ie oo 


i 
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oft 


STRAP: MOV -(SP) ; SAVE RO 
NOV s(86), RO 38 TRAP ,PODRESS 
MOVE (RO), RO : OF TRAP 
ASL RO pad & "TrObxine 
MOV STRPAD(RO),RO  ;: INDEX 
RTS RO ::60 TO ROUT ree 


-SBTTL TRAP TABLE 
s¥THIS TABLE CONTAINS THE hei ADDRESSES OF THE ROUTINES CALLED 





;*BY THE “TRAP™ INSTRUCTION 
; > ROUTINE 
étreap: 
TYPE ;;CALL=TYPE TRAP+0( 104400) TTY TYPEOUT ROUTINE 
STYPOC ;:CALL=TYPOC  TRAP+1(104401) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPOS ;;CALL=TYPOS © TRAP+2(104402) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPON $3;CALL=TYPON  TRAP+3(104403) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS | TRAP+4(104404) TYPE DECIMAL NUMBER (WITH SIGN) 
SGTSWR ;;CALL=GTSWR § TRAP+S(10440S) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR § TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 
SROCHR ;;CALL=RDCHR § TRAP+7(104407) TYPEIN CHARACTER ROUTINE 
SROLIN ;;CALL=RDLIN TRAP+10( 104410) ty TYPEIN STRING ROUTINE 
SSAVREG ::CALL=SAVREG TRAP+11(104411) SAVE RO-RS ROUTINE 
G ;;CALL=RESREG © TRAP+12(104412) RESTORE RO-RS ROUTINE 
ork FFERINT 5; *CALL=FPRINT TRAP+13(104413) FAILURE PRINT ROUTINE 
HPDATA: .ASCII /IMMEDIATE COMMAND SUMMARY: /<15><12><12> 


-ASCII /COMMAND NMENONIC PARAMETERS/< 15><12>< 12> 


-ASCII /ORIVE SELECT DN 


,ORIVE NUMBER/<15>< 12> 


-ASCII 7/ »? (PRINT DRIVE SELECTED) /<15><1le2 
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OZRERB. CNB AP TABLE Fs 









TR 
O34650 020040 020040 920040 
e807 O3¥b56 e004) De0049 e004 
res Gere Sea GEER fees 
7810 034 Q20040 20040 
e811 G37 e040 020077 
7Bi2 034714 4522 052116 
7813 034722 042040 O44S22 O42526 
7814 034730 051440 046105 041505 
7815 034736 O4eS24 005015 
7816 034744 = O12 
7817 O34745 106 051117 940515 -ASCII  /FORMAT SELECT FT »FORMAT(24 OR 26)7¢15><12> 
7818 034752 O201e4 O4e5e3 042514 
7819 034760 052103 O20040 
7820 034766 20040 020040 020040 
fase Qasone O00 Os0040 20040 
7ee3 35010 e004 GebO4) O47505 
7Be4 035016 O46S2ee 052101 031050 
7825 035024 020064 051117 031040 
782% 035032 O24466 005015 
Pe O3s035 Oe0040 e004) ge00%0 “ASCII / ,? (PRINT FORMAT SELECTED) /<15><1 
7828 035044 Q20040 20040 
7869 035052 20040 O20040 Ode0040 
7830 035060 20040 O20040 d20040 
7831 035065 20040 O20040 20040 
fess Oaelce Oe00 OREN DeNONO 
035102 037454 Oe4040 
7834 035110 051120 047111 020124 
7835 035116 047506 O46S22 052101 
78% Gusled O51 OeI0S O41505 
ese 035140 i? Os0ied Ose1¢5 -ASCII /OUTPUT TEST oT ,0 (OBJECT) /< 15> «12> 
7833 035146 051505 20124 
7840 035154 Oe0040 020040 de0040 
Pay) O35162 e004) Oe0049 20040 
7842 035170 guru Geole4 
7843 035176 020040 
few O01 Ow2si2 052103 
7845 O35ele O41117 O¥e512 052103 
7846 035220 006451 Ole 
7847 035223 S204 920040 ASCII / »S (SOURCE) /<15><12><12 
7643 03803 
7849 Be0040 e004 
7850 035244 20040 020040 
7851 035252 020040 20040 Od20040 
7853 020040 eol23 
fess O3e274 051450 Ose817 Dilae2 
| 7855 Gasa0e Oe4S0S OOSDIS 01 
| 7856 Lit OS0116 9521 -ASCII /INPUT TEST 1T/¢15><12><12 
7857 035314 051505 20104 
|. A EBS Eee Eee bie 
. 7859 035330 020040 2004 
| 7860 035336 020040 020040 052111 
| 761 O35344 005015 Ole 
| 













035347 
4 


Se ee ence Le CERES acre 


BB333382 


NOW CUI O 
Bee 
£ 


r 


RK611/RKO6 USER DE 
OZRERB. CNB TR 


111 
051440 
020107 


FINED TEST 
AP TABLE 


sae 


Sait 
Ros 


aaa 


g 
R 
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~8SCII 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCII 


-ASCIT 








/INPUT STRING 1S/¢<15><12><12> 

/COPY TAPE CT7¢15)<12>< 12> 

“ITERATION COUNT Ic »NNNNN (DECIMAL COUNT)/<15><12> 

/ . »? (PRINT COUNT) /<15><12><12> 
/BUFFER DUMP BD » BUFFER NAMECH,R,W,X,Y, OR 2)7<15 
/ »NUMBER OF WORDS/<15>< 12> 





/SPECIAL DATA PATTERN oP ,PATTERN NAME (X,¥,2)/<15><12> 





Pr 
o 





RK611/RKO& USER DEFINED TEST 
DZR6RB. TRAP TABLE 


7918 


fazg 


me 


ARSE ESTE ESP eoRA ROMEO uO 


ROR Ri saa pac cua aMy 


Shite ens 


036312 


042040 
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020040 
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-ASCIT 


-ASCII 


-ASCIT 


-ASCITI 


-ASCIT 









/ ,DDDD...D(32 WORDS)/<15><12><12> 


/EDIT BUFFER EB ,PATTER NAME (X,Y,Z)/<15> «12> 


/ | ,STARTING WORD NUMBER/<15><12> 
/ ,0D..O(UP TO 32 WORDS)7<15>< 12> 
/COMPILE 8) »NC (NO CHECK) /<15><12> 








r 


RK611/RKO& USER DEFINED TEST 
DZR&RB. CNB TRAP TABLE 


7974 
73 


Sei vice ett 


RSRSRRRSRSRSRSESS 
RaRgaggggg 


as 


037057 


SESMERBRERS 


bh pee fs bee 


037234 


20040 
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-ASCIT 


-ASCII 


-ASCII 


-ASCII 


-ASCIT 


-ASCIT 


ZEDIT ADD LINE 


/EDIT DELETE LINE 


/PRINT TEST 


/PRINT LINE 





,BII (BUS INCREMENT INHIBIT)/<15> 


EA ,LINE NUMBER/<15>< 12> 


»NEW COMMAND/<15><i2>< 12> 


ED ,LINE NUMBER/<15><12>< 12> 
PT/<15><12><12> 


PL »LINE NUMBER/<15><12>< 12> 
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020040 


Oe 
051505 


ASCII 


-ASCIT 


-ASCIT 


-ASCII 


-ASCIT 


-ASCIT 


-ASCIT 


/PRINT REGISTER 


/TIME OUT CHANGE 





NT/<15><12><12> 


RU/<15><12>< 12> 


PR »REGISTER NAME OR NUMBER/<15>< 12> 


HP/<15><12><12> 


TO sNNNNN (DECIMAL) /<15>< 12> 


»? (PRINT CONSTANT }“<15><12>< 12> 


7ALL DECIMAL VALUES MUST BE 65535(10) OR LESS/<15><12><12><12> 








PARAMETER «15><12>< 12> 


701894129429 
NMENONIC 


(DEFERRED COMMAND SUMMARY: 


-% 
/ COMMAND 


O3-NO ‘ 
ASCII 
»ASCIT 


) 
; 


- 
= 
os 


MACYIE EF (73 


sis oo 
——— “peice Bee 


ne 48 


USER DEFT 
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MACY e7(732) 


‘FReLE”” 


USER vers 


r ee ee eee 





~ ~ 
tj tu 
- oe a 
p< v bat] 
~ ~ ~ 
Lay Lay wv 
~ -¢ ~4 A 
cu vv a wm 
-~ — “~ ~ os 
cu - in wn “ 
4 -~ m4 ee re 
Doudl w 4 ~~ — 
“a 4 ~ = oO 
uw wv - -~ Lv) 
4 -_ “ a —I 
x z uw i 
~ nm b w 
— lu © 
= on Oo 
—~ - — 
oO ax = 
a. wn 
ta —- 
Qo x - = 
«re -- a 
oO az «x - 
= oOo a. w 
- ~ - o * 
~ Q Q 
Le? ] a w 
uJ 
™N 
o4 
a rd 
“tg ta) a 
a & 2 
z 2. c=) 
~~ ao 
i a o w 
ry x e 
% = = 
a Pa wn 
~ “‘ “N ~ ™ 
-<« o-« - Oe rr) 
) oe a4 4 4 
© Q Q QoQ oO 
wm wm w w # 
Ls 8 =z az Le 4 


Ls] 


ee ey 
SSN RESSMOOOBMEEShas Zot cian iaiisstes tans 
ee ee — 
, EES atta en evn tne fee eee erieetrrnrversceseneercezare 


PRR A RAR UOILIOUIUIn Uh eit ite Md WM attest tot ttatatotatt tututyten 


ane 
ee ae kee Doe oe Roe ee wp pal ph ph perp ee pe pe foe be pb arb pl lbh prt dl dlr jr tafe fe fe ff fhe 
DOOD OMOOOOMOMMOMDOMWIMMMOMDOOOOMOMOOOMOMOMVDONOMOMOMOMMODNMOMMOMOMMOMOMMMMOMMdma®ada 


oe 
SUNS 


me a rte ee 





em eee ees ee eee oe 


22:40 


MACY11 27(732) O3-NOV-76 


a 


PY 


a USER DE 


RKB 117 
dz 


r 





ou ~ 
~ . 
oy se = ai 
=" ~ ww -é 
~" in na ~ 
_ -~ vw 
~ bay] ~ 4 x - 
ta) - Pn 
~) ~ tu = 4 
| cu <4 “3 
x - Qe - Qe az 
> ~~ oO a oS > 
as 
oOo wm ual ~ Qa 
tal -~e wa tas 
-- ~~ & ~‘ A mes 
S . uw G 
uJ = uJ 
& x i a ta % 
fy = or. > ac tJ 
ft o 
Qo Q 
tay 
Qe 
— xz 
ms = 
& r=] 
oO 
Qa a 
ta) vv) 
w w 
oe ome 
a te ] 
rr rd 
~ “ ~ ~ i 
oe e+ oe a) be and 
-e Lo) o-« ze oe Loe] 
© Oo oO QO oO o 
wm w w = w w 
a xz a LP Te 4 Le 4 a 


ENDLOC: . 


Se cs a 
rae | a 
ra i are 


Se EE CCCCRNS RA ERM ENES SON TTE SS Shaan eS 


arn deat hart deat deat hatte hate bean hate let heme de team hae heen, ran hare, hae, Leen, kame han an Team Teak, eam han, hoe an ae Te ne ne ee ne ee ae ee ae ae pee pan pee pas ae pee pay pa pee pee pas pee per Per parry 


BEEGEAAZEASESASSSES000060004486 55646056605544552000545545 


SSAA is nn IRIN RANI IR RUA NUN GEC 


anid Gane 


rr rm me oe = ee 





~~ 
cu 
eo @ 
7“ 
~~ 
cu 
“4 “ 
ve ta] 
‘ 4 
wn iy) - 
“4 oy “A 
~~ ~ 
a < : & 
_- 
x a > 5 
~ w 
ctu = “A = 
“4 we w “- 
~ wo -t ~ 
~ tal ~ in 
wn Qa ~ e4 
~~ 
~ 5 Xx 
he 4 = bs = 
= on he w Ls | 
e : u} & “ 
Zs. z= sy “ wn 
. - co w in rv 
~ 
bat] iw — 
~ wo v 
x z ow 
Fa) 
~ Ea . 
- - ~ 
+ = ~ w a — 
w a a w +t v 
ty - ‘\ 
. se 2 
ta) 4 FA 
“ coe 
n~ 
- 
w = ¥ 
ad 
= x 
wn wo 
Tr tJ FY) 
tw N pr | 2 
_ o all 
i J a = 
ul u z > = 
ant: 3 ‘P cs 3 
LiJ a T)) = if 
wm z = = 
is Ln) - ta) 
? . rn 3 5 2 
+s aif b =) Q > <= 
tu a p m@ w i 
wu ee me aul a = 
- Qa Fs z = o 
wm a. p= | w Yo 
- ™ ~~“ ~ ~ “N ~ 
{ 
> oe a a4 co) rc) i) me 
oO ee oe oo co ry —" — 
Ps “© «) ©) Yo oO Yo © 
f wm w wm w w pd w 
~- « az cs x ce a 
oOo ° . . . ° a 
rm 
© 
c ~ 
t. 
OmM-< ooo7rtuT intTu.0ma 


EE 


MACY11 @ 
deb 
* ie 


a: HEISE OUIELATenenneLUletoSSoobONEMTIGLEO = 
| oD ASU eecisceumenianelt EONnrates etearloriaeemiiare 
ae SEcescesancenceccl IEEE EEO non rene ee 
| SBUE REUSE SOA couse amanocuatanoenmenaanNeeG 


.————— —___-____ A 
—-—— ee 


me ee ee 





: 


042331 lee oO40S0S 020104 -HSCII /READ DATA RO/<15><«12> 
042336 O40504 040524 020040 


-ASCII /WRITE DATA WO/<15><12> 


BEBERRERES 
Ona £ifuH-G 
ae 
z 
= 
fi 


~ASCII /WRITE CHECK WO/<15><12> 
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-ASCII /WRITE HEADERS WH/<15><le> 
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: 

ae 
as 
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8330 -ASCII /READ HEADER RH/<15><12> 
8331 pisese 042510 O4e101 
82333 O4%2S26 O20040 d20040 
8334 eS pales 005015 
8335 2S40 045505 -ASCII /SEEK SK/<15><12) 
8337 pisecd 0 
Be fed Eee Ee EM 
62339 OY 00651 Ole 
8340 042573 103 O42514 051101 -ASCII /CLEAR SUBSYSTEM ¢S/<15><1l2> 
exis 042600 oie 041125 Gaines 
6343 pase oe ei pare 
8344 O4e6ee 051503 00501 
8345 O426e6 047503 OS2116 047522 -ASCII /CONTROLLER CLEAR CC/<15>< 12> 
B346 O426S4 O46114 051105 041440 
eat O42e642 042514 05110 
042650 020040 041440 
8349 O42656 006503 01 
8350 O42661 104 O44S2e 042526 -ASCII /DRIVE CLEAR 0C7<«15><12> 
6351 te 041440 042514 051101 
Be5 Bp040 BEOOMD 
8354 042710 041504 00501 
8355 042714 O04 044514 -ASCII /RECALIBRATE RC/<15><12> 
8356 O4e72e2 0511 052101 020105 
8358 051040 
Baes Guerad i 
8360 042747 104 042526 -ASCII /ORIVE SELECT 0S/<15><12> 
8361 O42754 OS144O O461 041505 
8364 O04 051504 ait 
6365 043002 O40S20 045503 
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-ASCII /READ ALL HEADERS 
-ASCII /PATTERNS “A” THROUGH “I” ARE PROVIDED. 7<15><12> 


-ASCIT /DATA PATTERNS: 7<15><12><12> 
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-END 
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5770 


68Se2 
a555 


5951 


3377 
























DOCK = 100000 
DCLO_ = 000020 





DDISP = 177870 
DDT = 
gen Bis 
Bispia’ paride 
BiepRe Boatza 
DLT = 100000 
ONC = OOOO4D 
DMPHOR 003475 
DNRTE 006144 
001667 
Bpete  poeses 
DPRTEL ODE362 
DRA = OODODI 
DROY = 000200 
DRIVE | 001176 
BRPAR = Bobbio 
DRPORV= 002000 
BRvbe= BARBS 
DRVERR 015036 
ORVHRD= 000026 
DRVMSK= 000007 
900004 
poc002 





psc = O40000 
DSCNOT 014731 
| OSWR = 177570 
| DTBAII= 100000 
DTE = 010000 
DTYE = 0 
EARTE  O0i7&4 
EBRTE  O06346 
ECCW = 020000 
/ECH = 000100 
EDRTE  O0S2&6 
C= 000030 
ENDLOC 041416 
| EGSGN O02S16 
| ERRFRE 013644 
| ERRVEC= 000004 
ETABL  Oeze42 
| ESA © OBIS74 
| ES81 020536 
'ESCC OC CéD21 
ESCS O21464 
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ROSS: REFERENCE 


Tait 


GER 


6283 


5821s 
644S* 


6606 
6445 


6222 
6257 
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4811 
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7768 
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6018* 
6467 


6840 


6332 


444 


4813 
4Ba4 


5259 
7769 


6606% 
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6348 


60S6# 6119% 6125 6200% 6222 6245* 6251% S283%  6324% 
6840* 6894* 690e* 6915s 


6342 


4814 4815 4821 4823 4824 48s? 4esa 48 464 
4890 77808 st 


77700 7771 777300 «7775, 777RCP77P? PP7BC7779 7780 
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GODRV 02 ss92si«S&Ol )«=—s «S606 )=— «S609 

GTSWR = 104405 77738 

HARDER O14646 47148 4761 

HCRC = 000400 19648 

HD 001736 17548 3419 5596 

HDR.AD 023374 Seble 6170 6174* 684% 

HDR.CT 023376 5eb28 6178% 6867%  G870% 

HELPQ 21608. e412 

HPDATA O34436 3335 77828 

HPFILE 21938 3332 

HPRTE 007364 331 33308 

HPVLD 001672 i734# 2410 e2448x 3330 

HT = il 15198 7081 lee 

HVRC = 60 Boos 6052 6218 6454 

IBUFPT 001710 17438 2395 2396 2483 2484 2494 2607 2728 2816 2872 3360 3398 3615 

4318 4352 4451 S227 5569 5578 

ICDEC 004704 2435 «25588 «2628 «2S 

ICRTE 006254 2307 30188 

ICTBL 003544 P2a4e 63 

IDAE = 002000 18678 

IE = 000100 18128 S022 63° 6462 6750 6791 «6857 6924 

TLc = 000001 1854# 6454 

ILF = Q00004 18578 

INTERR 003031 22128 3664 

INTNSY 623405 e708 b033 6117 6138 6163 6249 6281 6322 6333 6346 6617 6621x  6625% 

INTR = 000300 18028 

TOBFSZ 903315 P2488 2405 

IOTVEc= 000020 16148 

IR = 000100 18418 

ISRTE 013012 2305 44108 

ITCNT O0le32 16948 3023 3030 3507 4520 

ITRTE 015020 301 3536 44lls 

TYVDADD 002562 21818 2670 

IVDEDT 602540 21788 2668 763 

TVDLN 21848 2672 2767 2842 

IVONC 003136 22258 = 4205 

IVDPAR 21878 3160 3455 4197 4358 

IVDRUN 22048 3539 4360 

IVDWCT O03111 22218 4203 

T.AERR 025434 6269 6275 6293 63028 

I-ATTN O24764 6009 6073 62068 

I-CCLR 6107 157 6388% 6460 6820 6885 

I-CSTS O2b4S2 6100 65358 

1.CST1 O26474 6104 156 65398 6809 
| T-DRV Oe3406 58748 6674 675 
| T-ERR  Oe4206 6101 6105s 

I-ERRA Oc4166 61008 6168 

I-ERRC 024174 £038 91 61038 6236 

T-HDAL Oe4432 6084 61478 

I-INTR Oe3sS2 2385 60088 - 
I-ISRL 023400 ceeds 2 6025 6028% 6399% 6696% 6850* 6923% 
| T-ISSuU 026102 6115 6185 6264 6278 6320 6344 64308 6579 658 #6593 6600 
1.100 Oe4032 6026 6043 60708 
| LERTRN 0260 6020 6058 6068 60% 6108 6113 6116 6122 6131 6140 6143 6158 6160 
L 
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OZRERB. CNB 
I.STAT O26S56 
I.STOR 026324 
I.UNLD 025702 
JSRRY 001720 
KIPARO= 2###%% 
LONTOF 03441 
iF =—s = O0001e 
LINNUM OO01116 
KNCNT 001243 
LOcesS 010144 
LOC3$_ 910240 
LOFFST 001256 
LPCNT1 001722 
LPCNTe 001724 
LPLABL 9003415 
: LPRET 010124 
MAXWDS 001700 
MCLK = Q00400 
001000 
001000 
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5538 
3613% 


6224 
6345 
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6822 
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6240 
6350 


4777 
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S056 
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6789 


5337 
3431 
4256 


4349 
4y44gx 


ssuy 
243% 


6247 


63534 


4895 
e724 


4220 


6816 


S451 
3831 
259% 
444s 
4y44dx 


5S47 
4YO4B* 


6253 6265 6279 6286 6298 

5105* 5131 Si7i# 5190 Se26s# 
e7S4e e8le 3362% 3634 

$335 5336 5570 

6834 6855 6878 6887 16921 

5585 S658 

3938 «6 4el& Ss 6 9Se2# 

77818 

SSSO =: S607# 

4253 


6318 


S245 
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OPI = g20000 18708 6052 6218 6454 
OTRTE Ole4e20 2299 =: 4299 7 
HALT : pgs 82 3 S9Stx 6066 6070 6086* 6152* 6165* 6180* 6724* 6784% . EB4E*  b862% 
= 4 
PARNGY 01375 46328 4800 
PARMO ON2142 20728 4o4sc0)}46 4¥908«=Sfss929—Sfs«‘*S104»=sS472~—Ss«S8GS 
PARM! 002230 2105 4903 4911 4932 $108 ‘5475 
PAT = 000020 18S6% 
PATPTR OO1676 . 17378 
TR ©001562 17228 3908 894346 4860 4441s S341 
PATROF OO0l242 17018  3908% 
PATSEL 001236 16978 3890  389S* 4461 
PATX  OO0le62 1716 3078 3407 #4+4328 4423 S345 Sés2 
PATXDF 001237 16988 3079% 4324 4419 
PATY 001362 1718% 30 3411 4333 4429 5349 
PATYDF 001240 16998 3084s 
PATZ 001462 17208 308 3415 4339 4435 5353 
o01e41 17008  3589% 
PELKT  O23416 seese 594 6036 6062 6230 6255  6673% 
PBSEL 021270 Su7i# S563 S576 S580 5583 5593 S602 S607 
PESVAL= 0651000 20348 5109 6611 
PBSW 670 17328 490i 4909 4930 5473 476% 
PC ©. =«000007 1S40# 2387% 2401% 2532% 2614*% 2618% 2625% 2717%  2721% 
% p94Bx 2979x 299]x 3018*% 3008% 3072% 3093%  3095x 
3217% 3317% 3393% 3421% 3431% 351i% 3531%  3603% 
| 3631%  3887% 3903% 3934% 3938% 3972% 3976% 4133% 4167% 
US63e 4S572% 4790% 4e829x 4836* 483 4y958* 4977%  SO14% 
| 5057 b Slice S147x S148% Se0b* S207* S2e7ex 5273% 
SS76x 5SS80x SS83x SS93% Sé0c« S607*% S610x S690% 5957% 
| £095* 6104% 6121% 6130% 6i4ox 6156% 6159%  6186% 
6285% 6297% 6325% 6337% 6349% 6357% 6394% 6440% 6446 
6618% 6619% 662e2% 6623% 6628% 6629% 6752% 6758% 6764% 
684ix 6895% 6904" 6917% 6925* 6934* 6982% 6989% 7044% 
7118% 71cD% 7292% 7306* 7367% 741l2x 7557*% 75624  7662% 
PCA = =:-04000 19038 
PCD} 86= 010000 1904% 
PGE = 002000 164S# 6452 
PIP = 020000 18888 
PIRQ = 177772 15268 
| PIRQVE= 000240 | 16208 
PLINE 14061 -° . 4&4S# 4779 «+5133 S192 S247 
'PLRTE OOSSOO 3 27988 
| PRERR 003217 22368 4469 S636 
| PREVOP 013700 46248 4904 
| PRINH 001662 17268 
| PRLPCT 016670 S31 4829 SOSee S147 S206 S272 
| PROGID 002316 21508 2402 
| PRRTE 006740 2329 © 3206s 
| PRTCON= 068% 4758 4796 4972% 4979% S609 
'PRO = 000000 15438 5316 
| PRI = 000040 15448 
PRE = 000100 154s 
| PR3 == 000140 1S468 
PRG == 000200 15474% 
| PRS = 000240 1S488 5817 


| PKELI-RKOS USE 
DZRERB. CME 
Se 
é = J 
es = Posse 
= fae 
ac Me 
PTRDB 0017 
be Be 
PUCO! 1 
en 1250 
PUNCH pOuse5 
PURVECS Sse 
P_ASOF= 
F.RO0 = 
| P.AOl = O00044 
1P.al0 = Gonrss 
P.All = 
P.SaHT= 
p- BRO: 000010 
FES: oe 
Bins 
PBI = 000056 
| PLCMND= 090001 
| P.CS1 = SOODI1E 
| P.¢S1H= 000007 
| P.CS2 = 000020 
| P.CYLN= 
| P.OCYL= 
| ~P.DRVN= 
iP.0S <= 
'P. DTS = 
| P.EPAT= 
p-EPOS= 
| PL OFST= 
| P.PRST= 
P.SECT= 
P.TRCK= 
‘PL. os 
P.WR = 
| ONEUSW= 
9. INIT= 
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Sc 
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RKE1I1/RKOS USER DEFINE 
OZRERB. CNB CROSS 


i 
a: 
uA 
a4 
<~I 


AMA 
443 4436 4442 4459 44978 4603 
5577 


RODATA= 000121 1788s 
or a Ape 1mee ss? : .a77 
| N= i ra 3 3 - bl 
RDLOOP 3400 4498e 4499 : 
ROSTAT= ts . 1798e Sli £797 
ROY = i8ige a 6754 £807 ~< 
READ 13336 sl 44888 ; ms 
READRG O161 4790 492Se S014 
RECAL = tee 7858 5527 6740 
REGLAB Ol 47les SiS 
REGNUM 001224 163918 32208 3221 3803 3606 
ee 001226 16328 
900140 17978 6844 
RESREG= 104412 3 5689 7561 77798 
| RESVEC= 000010 16108 
rerehe 007054 3213 32508 3825 
= 900016 7e68 4942 503e 6162 be4e2 6497 6S4S 6734# 6759 
RKBA = 900004 17618 4939 6493 6541 6767# 
RKBAS Q2e3342 3502 4934 5176 5292 Seiss sous 6014 6&78 
RKCS: = 000000 17598 3504 4561 4751# 4926 4948* 4953# 4956 4962 SCe2* 6037 6089 6147 
6197# 6206 6388% 6389 6398 6437% 6438 6462% 6490 6751# 6753 6792% 6804+ 
£806 6836% 6858s i £889# 6963 6924s 
| RKCS2 = 000010 17638 3506% 4937 ial 4950% SO2l# 6015 6175 6433# 6491 6539 6722% 6&788# 
6799 6849" 6873%  6898# 
, RKDA = OO0006 17628 4894940 6192e# 6494 6542 6728% 6770% 6872s 
| RKDB = 900024 178398 6171 617e 6173 
| RKDC = poneS 17678 1 
| RKDCYL= 17688 6191# 6498 6547 6727 6769% 6871% 
| RKDS = pools 17648 4944 4964 6040 Bat 6543 
| RKECPS= 17748 6106 6502 
| RKECPT= 000032 17768 6105 6503 
| RKER = 000014 17658 4943 6049 6215 bats bos4 
| RKMR1 = 00006 17708 449Se% 6183# 62628 6499 6576 6S583% 6590% 6597%  6698% 
| RKMR2 = 000034 17718 4966 6500 6810 
| RKNR3 = 000036 17728 486497 866501 ~=—s EBL 
' RKPAT = 000032 17758 
| RKPOS = 900030 17738 
| RKPRI 023346 $8178 S944 6668 
| RKVEC § 022344 2384 Seles 
RKWC = 000002 17608 4938 6492 6540 6768# 
/RLS sz 000010 18378 6848 
PMASK 001230 16938 
| RPSWIT 001671 1733@ 4743% 479) 4827 4Egr 4yeg9* 4907 
/RTSPC OO01716 17468 3645S 
RUEXIT ot sls 3537 35398 
RURETN O1 3 r] 
RURTE O01 ese 34968 4466 
F.ABNL 027004 5957 7 6142 6159 6337 6357 66178 6827 
R.CONT 027030 6019 7 612 61 6201 223 6246 6252 6285 6325 6349 6394 S88 
" 6469 8 6841 6895 304 6917 
F.NORM O27016 6095 6188 b2 66218 6764 6837 6S 
RO =7000000 15318 2388% 2390% 2391# 2393% 2394s 2398% 2399% 2400 2403 e601 2607% 


2396 
ecb08# c609% cbl0 ec6el* ecbeet cb2e3 cb35* 2636 e637# e648 2651 ec6S4* 2655 








‘o-oo oo ee 





SHUTS OP ESRD Race HEE oa OPE Ur 


265% e681% e712 e72e8% 2729 2731 2733 e742 2743 2746 e74s% 2 2758 
ey 7 * al 8 621 ceeie bes o25 e3e8 283 34 eesos 
8 8 8 884 692% 3066 90% 3099# 3147# 3170% 23382 
S43S% 3437% 446% 461% sbe4# 3656% 3668 367 3812 * 38e7% 38334 
2834 3841 42 3845S 3ess# 3886 3888# B90* 3891% 3835 
339028 3904% 3905* 3 3310# 3933 3350# 4131 41568 417 4176 4180 
4] 185 4188 419S5* 4213s 18 4225 4227 4231% Y4e32e Y4e4ee 4eS4e Y4ebee 
*#  4269# 43208 432e8% 4333% 4339% 4346% 4 435e# 4369% 4384 4a le 
441S*# 444o3# 44 4435*# 444i" 444Se 4yyug 44Six 44s4 * 4493" 4495 4501# 
4780# 4816# 48178 483S*# 4e8SS# 4“eSé* 486l*# 4862% 4867# 4868% 4873% 4874s 
See ee ame ae 
S118* 5119 5141 51728 cides sae 51 178%  S181# 182 + 2348 2s 
aGih * $359%  S362# S386% . $39e# 5394*% S4O0l# $403 
S408#  S415# 417% Hele S4e4# 54308 S432% S438e S44Se S44g9e SSes* SS3le# SS34* 
# SS40e SS43% SS46#  SS49# ares" sssS# 5558% SS61#  5SS67 S569% 55714  5575# 
SSebe + 5679# 683 S6a4s * S687% 6013 6107# 61le# 6115% 
6157% 6185* 6264* 6278% 6317% 63208 6359 6395 6356% 6400 6401% 646C# 
6465 6471% 64728 6579# 6586# 6593 66002 6608% 6609* 6612 6613% 6666 
etoge # 6820# 6830# 692e8% 6952 695S5* 6958 6980% 6997% 
C# 70135 7016 7042% 7049# 7073 7074% 7075 7078% 7135 714S% 
7149 7165 7166 7179% 7537% 7538 # 7602 762e7# 7641 7E44% 7647% 
7651% 7654# 7657 7661% 7673 7677% 7692 7697% 7706 7731% 775i 77528 
7754% #77554 #7756% i#7757% 
| Rl 909001 1S3e8 2384% 2385* 23868 2434% 2504 252 2530 2559 2560 eSb2x 2602 2615 
2617 2626 2634 2643 2647% e656 2657 2680* 2713 2718 2720 e773% 2800 
| e806 2808 ge say gals 2318 2939 2341 2947 29378 2980 2982 2988 
i 2390 3003# 19 1 3067 3073 3076 3081 3086 30394 3127 3155% 
31639# 3209 asi} 3216 3250 3254 3258 Boat sebi 3267 3c69* 3270 
| 3278 3284 3230# 3291 3235 3301 3% 3304 3310 3389 3334 33% 
3400 34 3409 3413 3417 3422 3426 342e8% 3430 3433 W444" 3460" 3695 
3605 3611 3615*% 3624 3625 3631 365S* 3731 3736 3742 3818 
} 3822 3830 3888 3335 3937 3973 3975 41 4136 4138% 4147 4168 4174 
4188 4215 4304 4306 4739 4B34# 4994 S004 5007 5009 5011 S019# S1ll4# 
Slel*# 5Sle23 5173 S180# 5162 Seebe Se3e 5257 5338% 5339 S341# 5343 
j S34S*# S347 S249* 5351 S353% 5355 5357# 5360 5364 5366 $368% 5371 5373 
| 5376 5378# 5379 5381 * $385 * 5389% S391# 5393 5396 5398 
5400# 5402 S40S*# 5407% S411 S413% S4l4* S41s S419 Swe2% S423 5427 5429s 
5431 S434# 5436 S437# S440 S443 S4Sl# 5568 $570# 55728 5SS74* 
! Sesge 567e reset 60le 6170% 61718 6172% 6173% 6174 6360% 
6690% 6691# 66 6 6953 6956% 6966% 6968% 6970% £973% 6976 6979 
i & 7016% 7018 wed 7022 7032e# 7033 7041% 7048% #7136 7149# 7150 
7154 7176%  7539% 7551# 760 7626 7642 764S%  7648% See 7653% 7655# 
7656% 76 7660% oeaoe 703 76893 7691% 7695 7696% 7656 77308 
, Re =4000002 15338 2437 2438 2440 oh 2563# 2S66 2568% 2573 2693 2629 2631 
| 33 c679% 2714 * 2725% 2726 e74Se e746 e77ee 3068 3097 3098% 3095 
i 3! oigi# 3109 31358 3148% 3149 31688 2292 Hous Wee 3424 a426 
34% 3438 on 34539% 3502% 3504 * 3 3629 3654% 3734 3735 
0 3897 g205 aick 3960 3981 oe 4003 4132 4140% 4142 4145 
415e% 4153 4155 41S7# 415 4161# 4162 4165 4186 4187% 4194# Yelee 424) 
4242 4560 4561 740 4750% 4751 4776% 4782e% 4elde 4l2ee 4820%  482e 4833% 
4639% 490S* 4927 4924" 4936 4937 493g 4939 494° 4942 4943 
4947 4948% 4950 449S2% 4953% 4956 4962 4oB4 496% 4967 4975%  S0els 
5074 511S* Sle0# Silel Slee 174e 5179 S180 516! Sees S$235% $337%  S360% 
Sable S364* S3e5# S393%  S40ee 416% S423# S4Y31e S436% S446e S447 S660% S6&63% 
| Sé64* S665* S666* SE67# * S669* 5671 5673 5676 5678* 5937 Souse 5959% 
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RK611/RKOE USER DEFINED TEST MACY11 271732) O3-NOV-76 22:40 PAGE 168 
$011 6014# 603 6040 6049 6089 6092 6105 6 6147 6 6172 
6173 617 6183# 191# 6192% 197% 6206 1S 42 2bes 361% 388% 8g 
$299 6433" 64378 64 S462#  §490 649! £499 6493 S49 6497 
6498 649 6 6501 6502 6503 6539 40 6541 6s42 4 6544 
£547 6576# 583% 6590 6597% 6664 6678 6698% 67228 6727% 6728% 6734 6751% 
bose Pocge avis bares Garas ceeoe bees cages Geas, 6903 eeave | bSa08 
6954 Paces 3 ct * 6971# 6 cara 6985 0 SBioe 15# 036 O40# 
7047# 7148% 7152% 1 oiGes 7163% 7164 169% 7177%  7526% i334 75404 
75468 8 7547% 755e# 7553% 7604 * 7643 7o46% 7649% 7659# 77 * 
R3 =“~000003 1S348 2477 e48e% 2487% 2499% e2509% 2658 es61# 2564 2s75# 2604 2620# 2623 
2659# 2664 e678% 2715 e7e3# 2726 2729 2771% 2801 2611% 2814 2817 
2848s 2873# 4 essi# 3069 3078  3083% 088s 3105 3123% 312c%% 
33 3137 3151 3167# 3219% 3220 seel# 3e23% 3224s 3235* 
32S6# * 265% 3272 3e76# 3e80% 3282%  3286% 3293% 3297% 3299% i * 
2312% ss * 366% 3370% 1% 333% 332k * 402% 3407% 3411% 3415# 
341 41 * 97 3616% 19% 3% 53t 733 # 
3896 aah 4001 4240 430 iA" 4312% 4317# 4318% 4319 SeGAS 4327% 
| 4334% 4340% 434S# 43S3% 4368% 4385% 441 4416% Y4ee% 44e8 4434# 
44oS# 44S8e# 4474e 4496% 450e# 4741 4796% 4797 4801 48 4818 
483ex 4840 4B4S 4B46 4849 4859 486S 4871 4878 4928 4947% 
~ 495 1# 4970 4 #4974% $119# Slee 5123 $177% 865 S230% 
8 65 63 S358* $361 536 S S379 S443" $527%  5S530% 
$S33% 5536# 5539% SS¥ee S545*# So48e SSSie SSS4*# S557# SS60% SS 5597 5603 
| S661# 5673* * 5677 S683* 5960 6010 §362* 
6931 7138 7146% 7147% 7161% 7164# 71738 7174% 7175% 7231% 7237%  7238% 
7e41% 72e46% 7247% 7248 7257% 7462 7464% * 7469 7476% 7477 
| as! ® 7493% 33 7501 7503% 7506 7544% 7549%  7555# 7624% 
RY =*005004 1S258 2435* e441% e446% ecO0# 2510 2S11# 2570% 2572 2S76# 2628% 2673% 2675 
2682% 2761 2768% 2775% 2838 2e84S5*  2851% 6 eee 2893% ee e3e4e + 2926% 
2951 2955# 3001# 3004 3031 Jt * 3071 104% 3106% 3l2b* 
3130% 3138 3i42# 3157% 3158 3163 3164% 3171% 3228 3233%  3236% 4 
3451 * 462% * 98 3617# 361 ee 3625 362e7%# 3629%  3633% 
252% 3657 3658% 3743 * 3813 3814%  3835#  3846% 3847 * * * 
j 3911 3912% 3948% 1% 3983 3986% 3987% 4004 4OOS* 4189 4210% 42l4e 
43e¢2e 4894329 4335" 4Y341e 4347% 4354s 436S% 4388% 4 
4390 4Y417% Sods 44308 443be 4H4ex 4459" 446ex $* 67 W471% 447% 
4S0S# 28 4530 4 4535* 4742 4831% 4880% 4“8eS* 4esge 
4891# 5113 5114 5115 S130% 5135 51 S144 5149% 5172 5 5174 5189* 
5134 5197 29 S276# * £317% 1 
5457 $477 5478 5480 S483 s4eS 5488 5492" $506% #5587 
£598 5599 S61l* S640 S641% S659 5661 S671#  567e# 
5674 5935 5961% 6034% 6076 60 622e6b*  6227% % 
6363# on 6671%#  6672% 6697 6932e# 7223 7eecS*# 7ecbe 72278 
7eeSe# = 724, 72e4S%# 7253% 7256% 754ee 7545 7551 7553 7606 7623% 7710 7727% 
(RS =7000005 15368 2478 eye4e e2485% ec466% e2491% 2495 e49s* . 2503 e2S04* 2505 2507 2S08% 
2605 * 2610 2637 eb42ee 2645  cb46 eb48e 2655% 2660 2662 2664% 26778 
e716 742% 4 7% 2770% goog 28le% 2813% 2814 2819 2847% 
125% 127% 3140# 141% 166% 3356 S* 3367% 3369% 3372% 3374# 
! 3614# 7 * 3651% 3733% 3735%  3736% 3741# 3838%  3840% 
3B41% 3 3B42H Se 394l*e 39439% 3944s * 3981% 3982%  4O01* 
4003% 2e40# e41# 4249s eSee 4eS3e 4eS8e Yeble 4eb4e  4eb7% 42e70% 4324% 
| 4325 4331 4343 4367% 4414 4419% 44 4432 4473% 4552 
4558 4755 47S8% 4759 4762 4765 4768 4771 4780 4788 4796 481 48sS 
| 4861 4867 4873 4882 4900% 4903% 4908 4911®% 4929 4932 4933 494S*# 4959 
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OZRERB. CMB CROSS REFERENCE TASLE -- USER SYMBOLS 
497ee  4979e Si04*# S108 5109 Sill# 5118  Se2eS  Se3ie Se34*e S253 Se7s# S47ee 
Su7Se# 8 Su77e Sugee SuB4e S487# S490e SYgie Sugye SS64e $577% 5578%  SS8is seas 
SS8S*# SS87# Ssss* 5589* SS90# S591% S596 $597 $596# S599% S600% S603%  Sé04s 
S608# # S654  S656% S675* S676% 56778 Sé86* 5934  5949% 5951% S952 59628 
£008 6036 606e# 6064*  6070# 6082 6098% 6103% 6105 6106 6109 6126% 
6133 61378 6155 6162 6187% 6191 6192 8 6193% 6194%  6196# 3 


6669% 7 6673 6686% 6688 6690 6697% 6699 67 6715 67, 6723% 
67e5 6727 6728 6731 6733# 6734 6737 6740 6743% 6744% 6746% 6747# 
6750% 6751 6767 67 6770 6771 6773 6775% 6778% 6779# 67: 6781 
67 6787% 67: 67 6791% 6792 6797 6799 62800* 6801% 6803% 
&80b# 6810% 6811% 6812 6816 6822 £824 6826% 6834 6846 
6848% 68S1* 68Se% 68S54e 6855 6857# 6858 6 6863 6865 1 
687, 6873 *  6875% * 6878 0 6883 887 6899* 6 6909* 
691 6921 6933% 7 7141% 7143% 7150% 7154 7169 7175# 7, 7230% 7232% 
7234% * 7236% 72e5S*  7543% 7 7554 607 76224. 7711 7726% 
RE =%000006 15278 1 2358% 2359% 2360 
=%000007 15388 5 
001666 17308 4141% 4172% #j4178% 4247 4250# 
SAVREG= 104411 S617 5651 «7535S 77788 
sesc OO4666 25278 2614 2625 2717 280s 2309 2338 2979 3018 3072 3093 3124 3208 
3393 s4el 3602 3610 ‘3730 3817 3887 3934 3972 4133 4167 4303 
SCERR 014520 46988 5134 
SCLR = 000040 1840 5021 6898 
SCNCLR 9014675 47188 4764 
TBL ~- 011426 40168 4152 
SCTOBG els6% 3660 
014025 4640 4775 5003 
SECNUM 001204 16838 4267 
SECTe0= 000010 17068 4243 4O4G S492 
| SEEK = 000117 | 17878 S560 6715 6725 ; 
; SELDRV= 000101 17808 5539 6854 
SETADD 021750 SS&& $582 5S8S# 
SFEMP 001234 16958 2479 e489% 2756% 2803 2870 3357% 3501% 3600 4314 4444e 4yoox 
SFPTP O01e%6 17088 * 2491 eS07* 2606 eb46% 2662 2731 2745 27S3% 2824 2873 3360% 
3363 4317 44S6% 
SKI = 900002 18568 
|, SMASK O0le22 16908 
SP =%000008 15398 2362% 2370% 2378% 2382 2403% 2406% 2407% 2434 2477% 8 e478% 2498 2499 
2509 esS8% 2575 eb01% ec602% c603% 260 2605 2617% e620 2s34*% 2647 
2677 2678 2679 2680 e7le® 2713% 27148 2715% 2716% e272e0% 2723 
2771 2774 e7gse# Sa 2801s * + 2331% 
2848 2849 ' 2B68% 2869% 2874% 2875% 2891 rd 2914% 2918% 221 2343% 
e347*% 2950 e978 2984s 3023% 3066 3067% 
* 9s 70% stele # 101 3144% 3147 3155 3157 3163 3166 
16 168 169 317 * Jel6% 19 3e 3314% 3316% 3355 3356 
3374 3375 3376% it 3390# 3391% 34 * QY4le 34s9 
aie0 3461 Se 3532%  3594% S9s*# 3596% 3597% 3598% 3599% 3651 3652 3653 
3654 3655 56 3667% lee 3813% 3830% 
3886% 3894# 3910 3933% 3937% 0 3975% 3978 4131% 4132%  418S% 
4186% 4194 4195 202 420 4212 4213 4e1S* 4220 4229 4231 4236 4238 
4301% 44302% 4367 4368 4369 44l2e% 4413% 44l4e 4473 4474 4475 4738% 
4739% 4740% 4474l# 4Y4742e 4777% 4831 4832 4833 4834 4835 4926% 4927%  4929% 
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4974 «4975 4976 «= 4980# §=64981e 4993" 4994" 
5058 S 5 





Se03# SeeS* Se4Se S2eS3% S2e57% Seb0%  S269s 7S 
575 S934# 935% 5936% $937% 5$938*% 5958 Papa 
£010% sie te} pean ee 2. ee bitte 
faso «be? pass’ fess” Bes 3 
6960 6962 6964 6972e% 6973 6976% 6978 
§ 8 5age § *  7007% goose 7009% 70i1% 
030% x 038% 7039% 70% 7042 7043% 
7073% 7074 7075% #7077 078 7079% 
7111 7lle2 711 7135#° 7136% #7137% Siget 
7159% 161 7171 717 175 7176 7177 
7216 7217# 72228 7223% 722% 7230 7255 7256 
7303 7309 7318 7320 732 73cb% 7327% 
7354" 7355 7366 7373% 7376% 7377% 7381% 
7401 7403 7406* 7413 5 7417% 
7439% * 744le 7442e 7443% 7449x 62 7463" 
7506 * 7508% # 7509% 7538%  760c% 
+ * 7610% 7611% 7618% 619% 620 621 
7627 7641% 764e% 7643% 7659 7651 7673% 
7683% 7685 7692% 7693 7694 7696 
7711% 771e% 7713 7721# 7727 7728 
SPACE2 002540 68 5081 
SPACES 003531 2e748 - 3153 
SPAR = 020000 18208 6450 
SPDLSS= 000020 18808 
SRTSPL= 000111 17848 ss48 6737 
SSTO 014000 46368 #4773 
STACK = 00:100 15148 2362 3509 3532 
STALL 1252 17118 3978% 3982 
443 21658 2432 2566 
ST 001216 18888 3809 
STIL 014762 4728% 4770 
= 1SeS8 
22398 4978 
STVAL 001220 16898 
ST 01 47028 5137 
SUBCLR= 000177 18018 5533 6892 
SUBCMD 001214 16878 4140 4159% 4161 
SVAL = 100000 18908 
SWCONT Ol6622 4836 5023 50378 5148 5207 5273 
os 001140 16618 2360 e37e% 2374 2380* 3514 3518 3527 4745 4748 4793 4995 4999 
oe 30% 5125 5128 5184 $187 5238 S241 5250 5267 7311 7350 740S% 
SWREG 000176 16298 7311 7350 7373 
SWwO = 000001 15788 4793 
SWwOO = 900001 15688 1578 
aot = 000002 15678 1577 
= 000004 15668 1576 
SWO3 = 000010 1565@ 1575 
SWwO4 = Coren 15648 1574 
SWwOS = 15638 1573 
SWO06 = 000100 15628 1572 
SwO7 = 000200 15618 1571 
sw0e = 000400 15608 1570 
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DZRERB.C TABLE -- USER SYM 
S.WRL = 004000 19178 
§$.xDOK= 000020 19388 
.XERR= 001 195748 
ITVE= te lolls 
1 1702 17408 8 e492% e2493% e494*e 2495 esso# e2S60% 2561 3062* 3064* 3091 3636 3637% 
geet ge3t eat 3803 3806% 3809* 3815 3837 4134*% 4i36*% § 4149 4153 4271 
TEMP2 001704 174le 3804%%  3807% 3810% 3814 3843 S310* S314 S334* S335* S336* S447 
THREEP 022010 5SS6 ss3 5S62 559348 : 
TKVEC = 000060 16188 7288  7289% 
TORTE O06062 2e35 
TO 003267 et } 
TOVAL 001260 1715@ 2943 29s0% 3498 
VEC = 000064 16198 
= 000034 16178 2364%  2365* 7679 7680*  7685% 
001202 16828 4264 
TRTVEC= 000014 l6les e 
O220Se2 56028 
TYPOS = 104404 2876 4 4778 5132 5191 246 
= 104400 2 2405 2412 2432 2450 24S2 2453 2497 eble2 2666 68 2670 
2 276S 7 2837 2840 e842 2344 77 2879 2881 
2916 5 234s 4 2986 e 300 3025 3034 3153 sl62 
3232 3 3335 3426 3448 3450 3453 3455 3525 3539 
3664 70 3672 3674 3849 3851 3947 33 4197 
4 4205 208 4358 4360 4o64 4469 4525 4747 4757 
4764 4767 4770 4772 4775 . 4779 4781 QP ay 4785 4795 
4806 “4 ui 4 4838 4842 4945 4ey 4851 4gS2 4876 4877 
4 & 4893 4904 4978 4338 5003 50s93 5061 5081 
5133 5134 5137 5140 5143 5146 5186 5192 5193 5199 5202 
5247 Sess 5259 S262 S271 563 5638 7086 7180 7249 
7317 7371 737e Sern See es, M 7407 7426 7474 7480 8s 7489 
TYPOC = 104401 2404 2915 2938S 3226 3439 3442 5080 5136 5139 S142 5145 5195 
S254 S25. S261 5276 7374 77688 
TYPON = 104403 77708 
TYPOS = 104402 77698 
T.ASOF 023320 ase os on 6117 6l62% 6163 6242% 6243 6249 6280 6314 6322 
T.BA 023312 7398 l bYo2e 
T.CS1 Oe eeaue pal * 6090 6103 6114* 6147% 6149 6155 6184* 6206% 6208 
6263% 6277% 6307% 6308 6319% 6343% 6389 6390 6430 6434* 643S5*% 6437 
6450 6490% 6537% 6538 6578% 6585* 6592% 6599 6753% 6754 6756 
T.CS2 023306 6015* 6016 6031 6034 6 6175* 6176 6226 6309 
6432e% 6433 6443 6452 6491% 
T.DA 023314 6312 bYS4# 
T.DB 023340 5811s 
T.DC 023316 58018 6313 6498* 
T.08 pesses ®@ 6040% 6041 6316 495% 
T. Se04s 6049% 6052 621S* 6218 6315 5YS4 6496% 
T.MR1 023326 Se068 6499# .* 
T.MRe 023330 58078 6124 6135 6271 6288 6330 6352 6500% 6581 6588 6595 6602 
T.MR3 023332 $8088 6127 6187 6266 6501% 6582 6589 6596 6603 6604 
T.PAT 023336 S8i0e . 6503# 
T.POS 023334 58098 - - 6502# 
T.WOR 023310 57988 6310 6492% 
UDTSRT OO4116 l 23558 7331 
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UEXATT= 000010 
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6198 


7122 


b'iS2 
3ezie 


64Se 
4273 


3520% 


6822 


3846* 


4308 


ecsT* 
6742% 


6060* 
6762% 


6758 


S240 


2986 
4887 
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4453% 


6139% 
6763% 


6088* 
6814# 


6805 


7317 


3025 
4893 


6154* 6167% 6181% 
6815* 6833% 

6138% 6153% 6166% 
6832% 

7514 

3227 3448 3450 
5255 7087 7122 


6229% 


6182% 


2674 
7407 


6296# 


6228* 


4527 
7494 





6305+ 


6295* 


4784 
7514 
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167000 


233 
: 
RRRRRRES 


onan 
BRo8 


¥ 
goes 
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$TKS 001144 
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7653 
77378 
7388 


4877 
7651 


5043 
76998 


7122 
72638 
7225 


7732 


71e2 


758% 


7408 


4894 
7657% 


7228% 


7426 


77708 


76638 


7Se21 


7122 
76648 


7239% 


7497 


77398 
2368 
1503 
7326 
7446 
7339% 
7451 
7324 


777148 


7504 


72658 


7514 


7309 
1504 
7354 
744B% 
7340 


7453% 
7330% 


77728 
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7514 


7314 


1505 
7381 


73424 


7352 


7773 


7315 


1506 


7368% 


77748 


7345 


1507 


7378 


7775 


7S21 


1671 


7390% 


77768 





1672 


7410% 


7777% 


1673 


77788 


“2736 


77798 
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DZRERB. CNB 

STRPAD O34404 
STSTNN 001102 
STTYIN 033332 


SM= #4##2% U 


SOFILL 032143 
, = 043361 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


45188 
75el% 






7465 7477 7495 7509 75138 
7104 71098 =§=7110 7412 


3507 Pace 5291 S843. «5596306198 )=ss«i6389)—ssCsYHODsCBH3BSCG7S2—Ss«6793 


7 
16308 16408 1677 17078 17168 17188 17208 17228 17358 1754% 22938 
7122 71888 7269 72738 7274 72758 7513% 
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DZRERB. CMB 
16218 
ENDCOM 16218 
OR 15158 
ESCAPE Il6el8 
GETPRI 1484s 
TSWR i6218 
T lée18 
TAGS 16338 
NEWTST 16218 
lg 
18. 

POP 16218 

4365 
PUSH 16218 

4130 
P.DRVR 1s 
GDEF le 
REPORT 16218 
-DRIV 1s 

. QDRV ls 
SCOPE 1516% 
TPRI 1484s 
TTRA i484e8 
SETUP 16218 
SKIP 1S2l8 
SLASH 16218 
SPAC ipsis 
STAR 16218 

268s 

3173 

3715 

4128 

4619 

5209 

S642 

bo52 

7455 
16218 

S.ORVE 1 

TRMTRP 7759 
TYPBIN i6e218 
TYPDEC il6e2l# 
TYPNAM i6e18 
TYPNUM 16218 
TYPOCS l62ls8 
TYPOCT l6els% 
TYPTXT i6el8 
SDECBN ls 
SOCTBN ls 
SSCMRE 16348 
SSCMTM 616348 
SSESCA il62l8 
NEWT 16218 
T Ss 


7373 


£991 
6935 


7768 
1511 


7679 


7769 
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7770 


i 4925 4992 S224 7134 7602 7640 7706 771e 
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2890 3002 3158 se33 ash SZ 3930 3854 
e867 4869977 3085s 30GB isi _87 0S 8939s BLL 


7770 7771 7773 7775 7776 7777 7778 7779 





7771 7773 7775 7776 7777 7778 7779 7780 
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SWRHI 14818 1497 
14818 ee 1508 1509 


$ 14838 7584 
~SSIZE 14848 7665 
14828 867743 

STYPD 14838 7122 
T 14828 87052 


LO TT A TT TE LT LE ES a Se  -aeeeenenese ne. 
- — + - — - o ] 
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ih 
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DIRERS. OMS CROSS REFERENCE TASLE -- PERMANENT SYMBOLS 
RDC 3523 75820752 75S : - be 
ROO 23 2s S855 BEORSCESY «=« «30993224 (3280 323 3316 4603226280 4187) 42H 
an 4817 4856 4862 4868 4874 4882 4936 ii S118 «5176 4«=6S2S2 0 3350 SSE Os SS 
ge Fes 531 e923 rei 2030 7033 #37043 «6 7079-—Sfs«s71S4«=s«s7217,—'—i‘«‘7EF~=—s—«s«s7387—i‘7387”—=—<‘zHH 
‘ / ¢ f ‘ é & 
| ASL 3366 2 5005 118 §178 S291 S38 S40S S434 St63 Se54 Shes SEER SéE7 
soey 636 =O 70e8 «460s «7029-—s—i7420—t«—«‘i7C (GC PHBC76SH7 
| $5.8 7159 
BCC 7160 
Bee art $0 ? l 2 7 ? ? 750 1 
2 
Fah E31 SesgsSecnS8qSSFHESOETCSRR TLR ty in 2244 
31 3606 «93608 «49= 36123732 2S 374 3819-38210 538) 3974 = 4125—tis«éS148 
5 41564 42 4o4S «44 4255 42s 4e63 4 4269 #4305 4309 4 43 
4 4 4351 4 “del 86442 44323 «4439s HG, 4491 44 3 4gsgos 4749 
4756 4760 4763 4756 476 4772 4789—tsi=#NO2 SY 4819 «4808 «= «B41 } QU? 
4weS4Y 4864860 «= «HBEECsC“‘i‘D 4879 4910 1331 496 y9ggssg 50098 5041 soss 
i 5107 124 at Sl 518s S236 Bes S2S1 5404 S418 Beit 
54 Pt 486 489 «S493 5625 § 5633 S655 5943 §017 &023 p93 6054 
611 6125 6128 6136 6150 6164 62099 6220 6268 6251 632 } 
| te psc 
4 
ton eh A 
! - 
2 a ee ae eee 
' BIC e734 es 27, 281 S338 4488 86-4949 se Si22 «5180 3=s_:« $181 1 S618 S619 
“3 6035 6 61% 6234 = 626 b 202 6306 6307 6535 ###6537 6&72 6686 6744 
pid 6750 6779 #6791 #6801 6852 6657 6972 7241 7302 7327 #7337 «#87355 
' BICE 4242 SH91—ss«aBH2S~—sé«éGS7BL 
BIS 3062 3506 7231 4820 4 F407 497 $430 S6S7 «S668 460 S8EQ)—Ss—«‘iS&74)~=Ss«sS9S51—é—‘éOS)~=Ss«éGSSE 
6064 6098 611 61 61 137 6245 6251 4 6283 62392 6308 6224 
6332 6342 6593 6445 6459 6467 6538 6606 6611 6723 6787 «4686 6840 6648 
be04s*G& 915 7i62 71 Zou 7247? 7555 
par] ero 3 08 3089 «335 1 3809 3613 3675 4o4%e 4wWID 444 4744 4955 4995 
BIT 3514 8 3527 3739 eee 4381 4wH90 449g 4558 4474S 474g 4755 4759 4762 
4765 4768 #4771 «+4788 #4793 +4797 #+4%+48Ol 4eo4 4808 4818 440 4843 4g49 «4853 
| 4859 4865 487] 4678 4958 «60s«SSQs—iwSEHH—s—isRCC“‘ié‘édSC*«‘éSC7 S109. £12S)~—S «Sieg ~=—Ssé«S:1 844 
S187 $238 86 Se4] S267 «Sé2l 40 s«sSbée4)=—ss«sS2B8)2Ofs«SG320Cs«SD1G)«=Ss«6O3L ~=—s«GOY 6052 6090 
6109 6124 6le7 61 6135 6149 B76 be08 62i2 46218 6238 6267 6272 £68289 
bs8 6230 b25¢ 6441 6443 6454 604 6748 6754 6773 ~3=- & 785 
&7 £8] ig 6818 6822 £334 6855 6887 6900 691 6921 7024 
gre E55 P48 nis $654 6093 6117 6163 6249 6281 6322 63% 6699 6 6865 7105 
BLOS 261 1 3641 4221 YSSe 6695 7466 
ELT Foes oBo4 Fhe 71s 33 72 7334 at 7548 
BMI 232 2863] 4383 44 4500 «4496. oy be S626 60 7158 
| BNE 2361 2488 2506 253 2644 2650 2658 2661 2734 2744 755 284 
gece 287 oor3 2913 sae 23983 ace 3077 3087 3107 3131 3143 
1 3255 3eS 68 1 3279 3289 3655 3236 331 
3331 338 337 3397 3401 3408 10 8 3MIY 318 «434e3)0 «644 5S 3519 3 
3601 3620 3626 36322 3644 27 36 3889 3901 3907 4137 4143. 4ISO 4163 41869 
4171 4175 4177 4219 4223 4228 4235 4272 4307 4315 4386 4447 4503 4 4S23 
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4$e9 483] 4382694557 0 = N75N._is7S2s—i7SHC79GCti‘BGCiti‘S ssi (s‘s«SW!P? 95 969 2000 s0s3 
$110 S$ie9 5188 5233. Se¥e Se44 S268 340 $344 4 46$348 8 $3$e $356 $363 536 $37; 
S377 S. 39 ante S¥eg = S441 = S450 MY 8687S 0COSS S66esCiS680)0OssCS68B8 CS S34 
S954 =“ 64 8 6071 6083 6091 609% 6111 6134 oie 6179 += 6214 cy on. 6250 
627 Paoe 6453 6455 6458 67e6 6732 $738 1 6757 6720S «798 —Ss«G B17 te 
682 68eS 6 the 6884 6913 63ce2 7014 OeS 7076 709% 70 7106 il3 
71 fy Ee e l 316 7 7329 734 387 385 7389 739% 7402 7409 
74 cacs 7488 8 8674Se 75890 765 7724 
BPL > 5002 s33e 0&4 7070s 7410S 7144 71780 7e40)=— ss 7325 7379 
BR nn 3 “oL @foy 8 eSUl 530? 261 eb6 e667 E97 EMH 27S 
SEE Se REBRR ER RR & 2 e 
S3e3 355 seb4 = e665 a 3277 331 325 3e34 3308 643 3399 513 
333% 80s 3399 03 308 5 S416 8634 asa ‘aos ee oc ee os; (i) Re 4 ee 49 
ah 364 se 3676 863805) 3 3 3848 3346 3984 4158 
41 41 41 ih 6%: 4198 8664201 4 os! in > i ~~ 4239 8 4251 4260 
|e ) + i * 7 a <> ee SB, 4468 4 4799 4961 1 4984 5010 $078 
Ses? SebY )=—s«S313—s5350 ss S354 0=—s(s8965—(isiéS9700———s« 95975 4 S S406 386S409)sC S420 0S SHE 
54 S439 S444 eRe 5481 Bpae era 5 SS4 $553 S556 5559  556e 
$92 l S681 6101 6269 6293 6298 = «350 
S447 «6 6735 6776 £68 6890 6905 6918 6974 7 7072 = 7089 7308 
7115 = 7153 pe ta 7218 «67233 7eS4H# 7319s 7398 74S 7481 74900 7496s 7498s 7550 
7699 16 
evs 7031 «= 7034 
| Sie e332. 2397 
CLR e339 e408 2486 2830 2874 4 3105 3123 31289 3135 303 3366 3371 
3435 snag gris 3910 3533 361 3667 4864166)0«=— 441778810 ss sis 90S SHS 4S 
4980 iS S044 S076 Se3l1 $398 5368 54 5571 5653 5956 1 6066 
6087 615e¢ 6154 6165 6167 .6180 6181 6296 6356 6431 6597 
6693 6698 67e4 6763 6815 6833 6836 6956 6957-. 7011 ?70ie 7145 7148 
7231 Cs: ae Sle "ee se Ed A | He 86746307486 7544 77282 
| CLRB e4ug 86248] )6=s 489757 3358 1} 3362 3803 35e0 3602 3621 3741 ‘YeSO 4eS9 ‘WSe 
“, SS? UMUC?’ peas S38 6802S 6008 6060 6088 6153 1 6182 
ar 6295 6304 6385 6617 #6621 662 6696 6762 6814 6832 7088 147174 
| CP 230 2374 cee es64 2610 2623 1 e758 3=—s 2814 ess = «3138 = (3640 
| 37340 383938433897 332 39890 40e 442 4149 8 4153 62 4180 4182 4218 
» --' i -- i -, B , e 24 | 4350 445 4 4 4 $007 Sie3 5182  Se3e 5248 
SeS6 ss SHH7)=—ssSS94H——sCsS9S2 CEH 7166 303 7309 7311 7315 7320 7333 7335 7340 
7330 73Sh:ia73BN 7H HO 741 1S 7451 7554 
CMPS 2Se8 4 2830 266 2615 2651 2706 e729 e817 2819 e825 2912 e941 2982 os 
| 30el 6 307i 3081 308H’—(<iéitieL S25 32H SBSH 2S 37?) 32270 3278 8= 3e84 $8 
3c31 = 308390) 0H 3310 3400 8693405) = 3409) 419 HH417 3625 3634 3820 
s8ee 63900) «64147 4168 = - 4306 5343 = S347 351 $366 5371 5376 5381 5398 
S411 Pees S440 8 8§=—. 6079 pers 6457 6703 6715 es 6731 6737 67490 6771 6797 6844 
£861 689e 690 6 4 7013 7018 7083 7ll2s 7116 
734 87388) 4 67408) «= 7469 7487s 7491s 7501 
| COM 3137 “782 “Ble Sle0 5179 
COMB sos 3908 iy 4144 rth 4164 rth 417; 457 4 S476 
DEC 31 3130 0S 3 3i4e@ 8314 33 337, S444 44H—(iSG 19 983S 4138 
| 4eS4 4 864ebe «= eS (iB CBS SH9G,C( (isis SES 2S] ©6235) = So6e )3=s«i5386iCiSSSSH ss SHOS SHI? 
Med 8Si#se 8 6GHNS) | GS7e 0 = S87 sSGG7 0S S599 SHG ele “He "76 7557 
_ DECE 8 e734 709% 7098 7239 #7250 
ENT 1515 
| HALT 1627 7071 7715 = 7737 
_ INC eesS) 386 cette «= eb4S S659) 926993303 HHS 8B 7] S19 4870—«s«dS10S~=ss« S171 = S226 
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foes 
Zao RS 


eons 


en ee ee +S 
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mw wor 
ao dew 
TG 
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nS ROS 


BE 


pane 


ASE DR pe Se hr 
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I ——————————r 


ZRERB. CNB 


-ASCII «1674 


ASCIZ §=1673 


-EQUIV 1515 
15 


) 
-EVEN 1 
IF 1 
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; 1 4827 ; 2 Pg 
‘ f 
fers «isa | 2b8q hae 
2320 e322 2324 
2350 eSe6 4016 
4040 4042 4O44 4O46 
7868 7885 7895 
8015 e025 8034 8040 
8141 8150 8159 8169 
Bess 8291 8300 8304 
8365 8370 8375 8380 
1676 2156 2160 2165 
2206 e2le 2217 
2269 2274 2276 4620 
4665 4668 4671 4672 
4723 4728 4732 5693 
et 7515 7516 7517 
1718 1720 1722 1754 
1644 1649 1650 =—-:«1658 
1701 1702 17 1726 
e07E 2077 2078 2105 2106 
5874 5877 
7269 
1504 1506 1507 1515 
1771 2073 2106 2135 2279 
2414 2430 2457 2476 2514 
2898 29093 2929 2938 2957 
3234 3319 3329 3339 
7 3784 3786 3802 3859 
4129 4278 4298 4372 4379 
4914 4915 4925 4981 
5151 5171 5175 5178 5210 
nS ae 
Ease 6938 6951 994 its 
7361 7392 7428 7432 7443 
7587 7632 7668 7679 7683 
7746 ae 7755 7768 
1516 1524 1539 1540 1569 
598 1599 1600 1602 








 IFF 


IF TF 


6369 6386 
7005 7054 
7432 «7442 
7679 7682 
7759 «7768 
1637 1640 
24572476 
2929 2938 
3379 3387 
3954-39 
W487 «4518 
So¥S © 5050 
5319 5330 
5902 5933 
6118 bie 
u? 6257 

6405 6429 
6743 «6766 
7055 7125 
7525 758 
6067 6087 
6201 6223 
6394 6446 
6878 6887 
6064 

6183 6 
6338 «6 
838 

696 

1501 1502 
6400 «6438 
7374 7505 
oie 

3458 9-35 
4473 «4738 
7705 77 ile 
1671 2355 
7769 
16212 
1671 2355 
7777 

5964 6367 
1678 1723 
2005 
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S497 $508 4=—s «S613 «= «S643 0S: S692 pene $813 S866 S883 5 


u 

a 
@ 
w 
wn 
co 
oO 
tf 
wm 
co 
wo 
0 


6300 S40 6367 6402 6473 50 6550 6615 6630 6795 6935 6991 

‘TITLE cope 2 7629s 7665 7 774302 7759 

«WORD 1627 = 1628 1629 1642 1645 1646 1647 1648 8=—s_: 1651 1652 1653 1654 
1660 += 1661 1662 1679 1680 1681 1682 1683 = 1684 1685 1686 1697 
1691 1652 1693)s«s1694 1708 1709 1711 7s 1713 1715s: 1736—Ss« 1737 
74e 21743 1745 1746 1747 1748 1750 = 1751 1752 175 
e081 2082 eos 2085 208 #2087 2088 2089 2090 2091 Att 
e098 «097 209g el00~—Sss 2101 e107 «6elie§=6 elds eld4 = ss 15s 
eleQ 0 6elel)6=s glee = ee lei = eles CGle®Cté@td?s—(‘iédew OO IE9CieLStsCéWdLZ'GSL 
ees Ss 97 2301 e303 2305 2307 e3ll 2313 2315 317 
exes le 23e9s £331 ck ae << << Qe ey ey) GX BX yg 
ess0 3060 3673 4017 4019 We no i, i a iy 4033 
4041 4093 4YO4S 4047 4048 419 4463 4Seh 4554 5013 5060 
5778 §6$779—s—s«éS789—Os«éS'781 S/76e «6 87830—ClCS7BNCE’SOCéS'78G 87 86$788 86$789 
5738 99 $800 5891 S802 5804 580 5806 S807 $808 5809 5810 
581 soci )60 ssh GSD CGY GS? SS S861 S86e 5891 6990 


ERRORS DETECTED: O 
DEFAULT GLOBALS GENERATED: 0 


DZRERB. SEQ/SOL/CRF/NL: TOC=DRIVES.P11/EQ: QNEWSW, DZRERB. CMB 
RUNST TIME: 85 77 11 SECONDS 
RUN-TIME RATIO: be9/ 175=3.5 
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